在同一行的第二行汇总并粘贴值

Question

我正在尝试汇总行并将值粘贴到第二行但在同一行中。我尝试使用以下代码但没有得到结果。谁能帮帮我

df1 <- data.frame(a = c("xyz","xyz"), b = c("C1 : 2", "C2 : 3"), c = c(2,2))
df1 %>% group_by(a) %>% summarise(years = cat(paste(b), sep="\n"))
C1 : 2
C2 : 3

预期输出

    a     years 
  xyz    C1 : 2 
         C2 : 3

Answer 1

这是使用 gt 包 -

执行此操作的一种方法

library(dplyr)
library(gt)

df2 <- df1 %>% group_by(a) %>% summarise(years = paste(b, collapse ="<br>"))
gt(df2) %>% fmt_markdown(columns = years)

Answer 2

另一个可能的解决方案是删除 a 列中不需要的值，例如

library(tidyverse)
df1 <- data.frame(a = c("xyz","xyz"), b = c("C1 : 2", "C2 : 3"), c = c(2,2))
df2 <- df1 %>%
  group_by(a) %>%
  summarise(years = b)

df2[2,1] <- ""
as.data.frame(df2)
#    a  years
#1 xyz C1 : 2
#2     C2 : 3

在同一行的第二行汇总并粘贴值

Summarize and paste values in second line of same row

r

summarize