строчной процент с R

Question

У меня есть dataframe, который выглядит примерно так, но в течение всего года

date  v1 v2 v3 v4 v5 v6 v7 v8 Fraction Percent 
01-02-2013 0 0 1 1 1 1 1 0 0.625 
01-03-2013 0 0 1 1 0 0 0 0 0.25 
01-04-2013 0 0 0 0 0 1 0 0 0.125 
01-05-2013 0 0 0 0 0 0 1 0 0.125 
01-06-2013 0 0 0 0 0 0 0 0 0 
.................................................... 
.................................................... 

Мой интерес вычислить процент колонки фракции. Я попытался использовать prop.table, но это не сработало. Я также попытался

df$Percent <- df$Fraction * 100 

он дал мне следующую ошибку

Error in df$Fraction[i] * 100 : non-numeric argument to binary operator 

Я пытался делать это в цикле, и вот код, который я использовал

df$Fraction <- 'NA' 
df$Percent <- 'NA' 
for (i in 1:nrow(df)) { 
    df$Fraction[i] <- round(sum(df[i, 2:9], na.rm=F)/8, 2) 
    # I have used only one of the following at one time 
    df$Percent[i] <- prop.table(as.array(df$Fraction[i]), margin= 2) *100 
    df$Percent[i] <- df$Fraction[i] * 100 
} 

Answer 1

Вместо использования for цикла, мы можем сделать это с rowSums

df$Fraction <- rowSums(df[2:9], na.rm=TRUE)/8 
df$Percent <- 100*df$Fraction 

Или как упомянуто @ColonelBeauvel, rowMeans будет более компактным и целесообразными.

df$Fraction <- rowMeans(df[2:9], na.rm=TRUE) 

Answer 2

Fraction переменная не является числовой. Попробуйте

df$Fraction <- as.numeric(df$Fraction) * 100

Answer 3

Следующий код работает отлично для меня

df$Fraction <- NA 
df$Percent <- NA 
for (i in 1:nrow(df)) { 
    df$Fraction[i] <- round(sum(df[i, 2:9], na.rm=F)/8, 2) 
} 

df$Percent <- df$Fraction * 100 


# Alternative 
df$Frac <- round(rowSums(df[2:9], na.rm=T)/8, 2) 
df$Percent <- 100*df$Frac 

Я нашел два решения для вопроса я разместил.

1. я могу конец цитаты в NA, что я назначил, так что весь столбец становится logical и, следовательно, я могу вычислить процент (или умножить колонку с 100).

2. Я могу использовать as.numeric, если у меня есть котировки 'NA'.

Спасибо.