代码之家 › 专栏 › 技术社区 › elliot

如何基于另一列的级别在列上粘贴字符串向量?

lapply split dataframe r

elliot · 技术社区 · 7 年前

library(dplyr)
q46 <- data_frame(
  coop=sample(c('fish','dairy','legumes'),20,replace=T),
  name=sample(c('Leader','President','Agronomist'),20,replace = T)
)
y <- c('.f','.d','.l')
coop_split <- split(q46, q46$coop)

lapply(split(q46,q46$coop), function(x) {
  paste0(q46$name,y[i])})

 name

 Leader.f

 President.f

 Leader.d

我并没有被这种方法困住;是否有自动执行此操作的功能?

谢谢

1 回复 | 直到 7 年前

B Williams 7 年前

为什么不使用case\u when或ifelse?

library(tidyverse)
q46 %>% 
    mutate(name2 = case_when(coop=='legumes' ~paste0(name, ".l"),
                             coop=='fish' ~paste0(name,".f"),
                             coop=='dairy' ~paste0(name, ".d")))

# A tibble: 20 x 3
  coop       name        name2
 <chr>      <chr>        <chr>
 1 legumes     Leader     Leader.l
 2    fish     Leader     Leader.f
 3 legumes  President  President.l
 4 legumes  President  President.l
 5   dairy     Leader     Leader.d
 6 legumes Agronomist Agronomist.l
 7 legumes  President  President.l
 8    fish Agronomist Agronomist.f
 9    fish     Leader     Leader.f
10 legumes     Leader     Leader.l
11 legumes Agronomist Agronomist.l
12 legumes Agronomist Agronomist.l
13 legumes  President  President.l
14    fish Agronomist Agronomist.f
15   dairy     Leader     Leader.d
16   dairy  President  President.d
17 legumes Agronomist Agronomist.l
18 legumes  President  President.l
19 legumes     Leader     Leader.l
20 legumes Agronomist Agronomist.l

推荐文章

user4567794374545 · 如何将函数应用于R中的多个列?

2 年前

maycca · R: 使用lappy在两个列表上同时迭代函数?

6 年前

Jack Dean · 使用biomart的Lappy问题

6 年前

xeyetopewu · 将列传递到lappy中的“with”

6 年前

Denisse Kowaleski · 为散点图合并两个不匹配的数据帧

6 年前

M. Stargardter · R: 结合lapply和left\u join以有条件地合并数据帧

6 年前

delcast · 批量打印ggmaps

6 年前

undergrad · lapply在R中,无法打开连接?

6 年前

HnCetin · 使用自定义函数时Lappy出现意外结果

6 年前

Wang · 在我的函数中加入lapply。递归?

7 年前