我有一个矩阵,显示我用于某些线性组合的变量的分类值和相应的r.squared值.由于用于线性组合的变量数在1到4之间变化,因此有几个NA.
我使用ggplot2来获得这个输出,这非常接近我想要的: Rplot1.png
但是,我不希望显示NA,我无法弄清楚如何geom_text()显示所有内容或者如果我尝试的话会给我一个错误,geom_text(aes(label = sprintf("%1.0f",value[!is.na(value])))因为在这种情况下长度是错误的.
此外,我希望最后一列用不同的精度(2位小数)和不同的颜色代码格式化.
我的数据:
col1 <- c(3, 12, 12, 4, 2, 4, 6, 4, 15, 13, 1, 4, 13, 13, 4, 4, 6, 13, 1, 4)
col2 <- c(14, 29, 33, NA, 3, 14, 14, NA, 18, 18, 3, NA, 18, 18, 5, NA, 14, 18, 3, NA)
col3 <- c(22, 33, NA, NA, 6, 23, NA, NA, 25, 25, NA, NA, 24, 25, NA, NA, 21, 25, NA, NA)
col4 <- …