我目前正在编写一个脚本,最终将绘制细胞分裂损失的积累。首先,我生成一个值矩阵,然后添加每列0
出现的次数 - 0
表示丢失。
然而,我现在认为一个好的情节将是退化曲线。因此,给出以下示例;
>losses_plot_data <- melt(full_losses_data, id=c("Divisions", "Accuracy"), value.name = "Losses", variable.name = "Size")
> full_losses_data
Divisions Accuracy 20 15 10 5 2
1 0 0 0 0 3 25
2 0 0 0 1 10 39
3 0 0 1 3 17 48
4 0 0 1 5 23 55
5 0 1 3 8 29 60
6 0 1 4 11 34 64
7 0 2 5 13 38 67
8 0 3 7 16 42 70
9 0 4 9 19 45 72
10 0 5 11 22 48 74
有没有办法可以轻松地将此表变为100减去表中显示的数字。如果我可以绘制这些数据,我会有一个可爱的退化曲线,从100%下降到很多细胞都已丢失。
答案 0 :(得分:1)
假设您不想为第一列执行此操作:
fld <- full_losses_data
fld[, 2:ncol(fld)] <- 100 - fld[, -1]