一共七个细胞,CIBERSORT absolute score位于idx的七列中(设为i+1)
而IHC cell count就位于前一列(设为i列)
接下来就可以写个for循环做相关性分析了
idx..., color线条颜色, fill填充颜色, size填充大小,stroke线条粗细
geom_smooth(method = 'lm', se = FALSE, col = 'grey70')...+ # 拟合线,method:统计算法(lm\glm\gam\loess\rlm等),se:误差范围(就是围绕着拟合直线的颜色带),col:颜色
labs(title=celltypes[i]...ggplot(df, aes(x=wt, y=mpg, group=cyl)) +
geom_point(aes(shape=cyl, color=cyl, size=cyl))
上面的形状颜色大小还是自动修改的...,当想手动设置时,需要添加不同的参数:
scale_shape_manual() : 改变点的形状
scale_color_manual() : 改变点的颜色
scale_size_manual() :