2

我有一个大数据框，我想根据条件将字符附加到行名。我有以下示例：

trees <- data.frame(char = c('flower', 'cone', 'flower', 'cone'), number = c(3, 3, 5, 6))
rownames(trees) <- c('birch', 'pine', 'maple', 'redwood')

这就是我想要的，松树和红木旁边的“c”：

           char    number
birch      flower  3
pine c     cone    3
maple      flower  5
redwood c  cone    6

我知道我可以使用粘贴来附加字符：

# this gives the output I am looking for
paste(rownames(trees[trees$char == 'cone',]), 'c')

[1] "pine c"    "redwood c"

但是，当我尝试以下代码行时，更改不会出现在我的数据框中：

rownames(trees[trees$char == 'cone',]) <- paste(rownames(trees[trees$char == 'cone',]), 'c')
4

3 回答 3

2

trees$char是一个向量（一维）。所以不需要[,]. 这不值得回答，但很难在刚刚发布的评论中提及。

嘿！bdw 我现在意识到，要提到的另一点是，在您的代码中，您没有将其分配回原始data.frame树，而是分配给子集权，data.frame因此不会被反映

rownames(trees)[trees$char == "cone"] <- paste(rownames(trees)[trees$char == "cone"], "c")
于 2017-02-05T15:44:26.727 回答
1

一种选择是

library(stringr)
x1 <- str_extract(trees$char, "^c")
row.names(trees) <- trimws(paste(row.names(trees), replace(x1, is.na(x1), "")))
trees
#            char number
#birch     flower      3
#pine c      cone      3
#maple     flower      5
#redwood c   cone      6

另一种选择是

row.names(trees) <- paste(row.names(trees), c("", "c")[(trees$char == "cone")+1])
于 2017-02-05T16:11:07.050 回答
1

您可以使用 ifelse 函数来定义行名：如果 char 值为“cone”，则将“c”粘贴到当前行名的末尾，否则使用现有行名。

rownames(trees) <- ifelse(trees$char=="cone",paste(rownames(trees), 'c'),rownames(trees))
于 2017-02-05T15:59:18.957 回答