R组合数据帧前两行的字符

R组合数据帧前两行的字符,r,R,我有一个数据帧: dnames <- data.frame(x1= c("a","b"),x2= c("c","d"),x3= c("e", "f")) dnames dnames对于列式粘贴,请使用sapply sapply(dnames, paste, collapse="") 或者使用OP的方法,取消列表和粘贴 paste(unlist(dnames[1,]),unlist(dnames[2,]),sep="") 在tidyverse中 library(dplyr) libr

我有一个数据帧:

dnames <- data.frame(x1= c("a","b"),x2= c("c","d"),x3= c("e", "f"))
dnames

dnames对于列式
粘贴
,请使用
sapply

sapply(dnames, paste, collapse="")
或者使用OP的方法,
取消列表
粘贴

paste(unlist(dnames[1,]),unlist(dnames[2,]),sep="")

tidyverse中

library(dplyr)
library(stringr)
dnames %>%
   summarise_all(str_c, collapse='')

对于按列粘贴的
paste
,请使用
sapply

sapply(dnames, paste, collapse="")
或者使用OP的方法,
取消列表
粘贴

paste(unlist(dnames[1,]),unlist(dnames[2,]),sep="")

tidyverse中

library(dplyr)
library(stringr)
dnames %>%
   summarise_all(str_c, collapse='')

要保持代码样式,可以尝试以下代码

d <- t(dnames)
dnames1 <- paste0(d[,1],d[,2])

要保持代码样式,可以尝试以下代码

d <- t(dnames)
dnames1 <- paste0(d[,1],d[,2])

您可以执行
sapply(dnames,paste,collapse=“”)
在您的情况下,列是
factor
。因此,在按行提取时,它被转换为
integer
存储模式。相反,它可以是
unlist
paste(unlist(dnames[1,]),unlist(dnames[2,]),sep=“”)
我想这也行:
dnames1你可以做
sapply(dnames,paste,collapse=“”)
在你的情况下,列是
factor
。因此,在按行提取时,它被转换为
integer
存储模式。相反,它可以是
unlist
粘贴(unlist(dnames[1,]),unlist(dnames[2,]),sep=“”)
我认为这也行:
dnames1