条件に基づいて行名に文字を追加する

Question

条件に基づいて行名に文字を追加したい大きなデータフレームがあります。私は文字を追加するペーストを使用することができます知っている

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

：

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

これは私が次の松とレッドウッドに「C」、のためつもりです：私は、次の例を持っている

私はこのコードの次の行をしようとすると、

# 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') 

Answer 1

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]) 

この答えは受け入れられない理由

Answer 2

trees$charはベクトル（1次元）です。したがって、[,]の必要はありません。これは答えに値するものではありませんが、投稿されたコメントで言及するのは難しいです。

Hey！ BDWは、私が今実現し、言及する別のポイントは、あなたのコード内で使用すると、元data.frame木に戻ってそれを割り当てていないことが、サブセット化data.frameにそれが反映されません右のようである

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

Answer 3

あなたはifelseを使用することができます関数がrownamesを定義する：char値が "cone"の場合は、現在のrownameの最後に "c"を貼り付け、それ以外の場合は既存のrownameを使用する。

rownames(trees) <- ifelse(trees$char=="cone",paste(rownames(trees), 'c'),rownames(trees))