在单元格 R 中添加值 [关闭]答案

【问题标题】：Add values in a cell R [closed]在单元格 R 中添加值 [关闭]
【发布时间】：2018-02-16 15:47:40
【问题描述】：

我有一个关于酒店房间床类型的专栏，但我想知道有多少人可以睡在这个房间里。我的数据集如下所示：

        nrofP
         2||2
         3||3
            1
            6
         1||1
2||2||2||2||2
            5
      2||2||1

我的预期结果是：

我希望你能知道解决我的问题的方法。

【问题讨论】：

标签： r dataset cell add

【解决方案1】：

rooms <- c("2||2", "3||3","1", "6", "1||1", "2||2||2||2||2", 
"5","2||2||1")

occupancy <- do.call("c", lapply(strsplit(rooms, "\\|\\|"), function(x) 
{
sum(as.numeric(x))
}))
occupancy

【讨论】：

类似于我的方法。很酷的东西

【解决方案2】：

将 nrofP 视为一个向量。

sapply(nrofP,function(x) sum(as.numeric(unlist(strsplit(gsub('\\|\\|',' ',x),' ')))))

【讨论】：

【解决方案3】：

library(lazyeval)

df <- data.frame(nrofP = c("2||2", "3||3", "1", "2||2||1"), stringsAsFactors = F)

df$nrofP <- lapply(gsub("||", "+", df$nrofP, fixed = T), function(x) lazy_eval(x))

【讨论】：