조건에 따라 행 이름에 문자를 추가하십시오.

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

하나의 옵션은

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 차원)입니다. 따라서 [,]은 필요 없습니다. 이것은 대답 할 가치가 없지만 방금 게시 된 의견에서 언급하기는 어렵습니다.

안녕하세요! 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))