行ごとに計算した結果を１列に代入する df()5 df_cha3 df_cha30.6, 0, 0.4, 0.5, 0.2, 0.3, 0.3, 0.5, 0.2, 0.2, 0.5, 0.3 # treatment <- c("A", "A", "B", "B") alive <- c(60, 50, 30, 20) fire <- c(0, 20, 50, 50) dry <- c(40, 30, 20, 30) total <- c(100, 100, 100, 100) df <- data.frame(treatment, alive, fire, dry, total) # 3 df_cha <- matrix(data = NA, nrow = 12, ncol = 3) df_cha [, 1] <- rep(c("A","B"), each = 6) df_cha_clnm <- colnames(df)[2:4] df_cha [,2] <- rep(df_cha_clnm, 4)

`gather``mutate``arrange`


df %>%
rowid_to_column() %>%
gather(col, value, -treatment, -total, -rowid) %>%
mutate(value = value/total) %>%
arrange(rowid) %>% select(-rowid, -total)