R 将单元格条目粘贴到一个单元格中并删除空单元格
我有以下问题: 我有一张有许多空房间的桌子。但第一列不包含空单元格。像这样:R 将单元格条目粘贴到一个单元格中并删除空单元格,r,cell,paste,R,Cell,Paste,我有以下问题: 我有一张有许多空房间的桌子。但第一列不包含空单元格。像这样: structure(list(variable = c("variable", "Mean (M)", "Standard", "deviation", "(SD)", "1. Challenge"), M = c("M", "", "", "", "", "3.06"), SD = c("SD", "", "", "", "", "1.08"), X1 = c("1", "3.03", "1.09", "",
structure(list(variable = c("variable", "Mean (M)", "Standard",
"deviation", "(SD)", "1. Challenge"), M = c("M", "", "", "",
"", "3.06"), SD = c("SD", "", "", "", "", "1.08"), X1 = c("1",
"3.03", "1.09", "", "", ""), X2 = c("2", "2.19", "1.07", "",
"", "â\210’0.06"), X3 = c("3", "1.93", "1.10", "", "", "0.52***"
), X4 = c("4", "1.86", "1.04", "", "", "â\210’0.14*")), row.names = c(NA,
6L), class = "data.frame"))
现在,我想将标准(=“偏差”和“(SD)”下的两个单元格的条目粘贴到on单元格中,并删除这些仅包含空单元格的行。因此,输出应如下所示:
structure(list(variable = structure(c(2L, 3L, 1L), .Label = c("1. Challenge",
"Mean (M)", "Standard deviation SD", "variable"), class = "factor"),
M = structure(c(1L, 1L, 2L), .Label = c("", "3.06", "M"), class = "factor"),
SD = structure(c(1L, 1L, 2L), .Label = c("", "1.08", "SD"
), class = "factor"), `1` = structure(c(4L, 3L, 1L), .Label = c("",
"1", "1.09", "3.03"), class = "factor"), `2` = structure(c(3L,
1L, 4L), .Label = c("1.07", "2", "2.19", "â\210’0.06"), class = "factor"),
`3` = structure(3:1, .Label = c("0.52***", "1.10", "1.93",
"3"), class = "factor"), `4` = structure(c(2L, 1L, 4L), .Label = c("1.04",
"1.86", "4", "â\210’0.14*"), class = "factor")), row.names = 2:4, class = "data.frame")
你能帮忙吗?
谢谢 一个选项是根据除第一列之外的所有列中出现的空格(
”
)创建分组列,然后在行数大于1时粘贴每个列的元素,并获得不同的行
library(dplyr)
library(stringr)
df1 %>%
group_by(grp = cumsum(rowSums(.[-1] == "") != ncol(.)-1)) %>%
mutate_at(vars(-group_cols()), ~ if(n() > 1) str_c(., collapse=" ") else .) %>%
ungroup %>%
type.convert(as.is = TRUE) %>%
select(-grp) %>%
distinct
您可以删除缺少数据的列,然后手动重命名该列<代码>df,但这没有帮助,因为问题不是NA,而是空白单元格!我试过这样做:no\u blank\u Table您可以使用dplyr相当轻松地将所有空白值转换为NA:df!非常感谢你!我不知道这是否需要,但我简化了一点:
Table2%>%groupby(grp=cumsum(rowSums(.-1]==“”)!=ncol(.)-1))%>%mutate_at(vars(-group_cols()),~if(n()>1)str_c(,collapse=“”)else.)%>%unique(.)%>%。[-1,--10]
@Anne KathrinKleine谢谢你。type.convert
用于更改每列的类型(如果需要),并且unique
是一个基本R,类似于distinct
fromdplyr