Como criar uma coluna contendo uma sequência de estrelas para os níveis inidcate de um fator em um quadro de dados em r

Question

(segunda pergunta hoje - deve ser um dia ruim)

Eu tenho um quadro de dados com várias colunas, incultando uma coluna de concentração (numérica), uma bandeira destacando resultados inválidos (booleanos) e uma descrição do problema (caractere)

df <- structure(list(x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), rawconc = c(77.4, 
52.6, 86.5, 44.5, 167, 16.2, 59.3, 123, 1.95, 181), reason = structure(c(NA, 
NA, 2L, NA, NA, NA, 2L, 1L, NA, NA), .Label = c("Fails Acceptance Criteria", 
"Poor Injection"), class = "factor"), flag = c("False", "False", 
"True", "False", "False", "False", "True", "True", "False", "False"
)), .Names = c("x", "rawconc", "reason", "flag"), row.names = c(NA, 
-10L), class = "data.frame")

Eu posso criar uma coluna com o nível numérico da coluna do motivo

df$level<-as.numeric(df$reason)
df
    x rawconc                    reason  flag level
1   1   77.40                      <NA> False    NA
2   2   52.60                      <NA> False    NA
3   3   86.50            Poor Injection  True     2
4   4   44.50                      <NA> False    NA
5   5  167.00                      <NA> False    NA
6   6   16.20                      <NA> False    NA
7   7   59.30            Poor Injection  True     2
8   8  123.00 Fails Acceptance Criteria  True     1
9   9    1.95                      <NA> False    NA
10 10  181.00                      <NA> False    NA

E aqui está o que eu quero fazer para criar uma coluna com muitas estrelas 'nível', mas falha

df$stars<-paste(rep("*",df$level)sep="",collapse="")
Error: unexpected symbol in "df$stars<-paste(rep("*",df$level)sep"

df$stars<-paste(rep("*",df$level),sep="",collapse="")
Error in rep("*", df$level) : invalid 'times' argument

rep("*",df$level)
Error in rep("*", df$level) : invalid 'times' argument

df$stars<-paste(rep("*",pmax(df$level,0,na.rm=TRUE)),sep="",collapse="")
Error in rep("*", pmax(df$level, 0, na.rm = TRUE)) : 
  invalid 'times' argument

Parece que o REP precisa ser alimentado com um valor de cada vez. Eu sinto que isso deve ser possível (e meu intestino diz 'use lapply', mas meu aplicativo fu é v. Pobre)

Alguém quer tentar?

Answer 1

Eu acho que você precisará de uma função do tipo Aplicar. Isso vai funcionar:

df[is.na(df$level),"level"] <- 0
df$level <- sapply(df$level, function(x) paste(rep("*",x),collapse=""))

Você seria melhor usando sapply do que lapply Nesse caso, pois ele retorna um vetor em vez de uma lista.

Da ajuda para o representante:

Se o 'Times' consiste em um único número inteiro, o resultado consiste em toda a entrada repetida várias vezes. Se 'Times' é um vetor do mesmo comprimento que 'x' (após a replicação por 'cada'), o resultado consiste em 'x [1]' repetidos 'tempos [1]' 'Times,' x [2] 'repetidos 'vezes [2] vezes e assim por diante.

Um problema de usar rep Com um vetor para o parâmetro Times é que ele apenas retorna um vetor e descarta instâncias em que o Times = 0. Você pode ver isso com este comando: rep(rep("*", nrow(df)), times=df$level).

Answer 2

Você pode criar o vetor de estrelas como

vstars <- sapply(1L:nlevels(df$reason), function(i) paste(rep("*",i),collapse=""))
vstars
# [1] "*"  "**"

E depois indexando -o com df$reason (que funciona porque é um fator):

vstars[df$reason]
# [1] NA   NA   "**" NA   NA   NA   "**" "*"  NA   NA

Para grande data.frame deve ser muito mais rápido então paste em cada linha.