时间戳

首页 > 解决方案 > 此代码在 R 中生成一条曲线。如何更改此曲线的颜色？

r - 此代码在 R 中生成一条曲线。如何更改此曲线的颜色？

问题描述

此代码使用 pwr 和 ggplot2 包在 R 中生成曲线。我怎样才能改变这条曲线的颜色？

library(pwr)
library(ggplot2)
P0 = c(0.05,0.06,0.11,0.104,0.16,0.106,0.01,0.1,
0.1,0.1,0.08,0.02)
P1 = c(0.1,0.05,0.12,0.101,0.12,0.105,0.024,0.04,
0.01,0.11,0.04,0.06)
effect.size = ES.w1(P0, P1)  
degrees = length(P0) - 1
pwr.chisq.test(
           w=effect.size, 
           N=NULL,           
           df=degrees, 
           power=0.80,       
           sig.level=0.05)
P.out <- pwr.chisq.test(
            w=effect.size, 
            N=NULL,            
            df=degrees, 
            power=0.80,        
           sig.level=0.05)
plot(P.out)
p <- plot(P.out)
p + theme_classic(base_size = 14)

标签： rggplot2

解决方案

红色似乎在pwr::plot.power.htest函数中被硬编码。但是，您可以编辑以某种 hacky 方式返回的 ggplot 对象来完成工作

p <- plot(P.out)
p$layers[[1]]$aes_params$colour <- "blue"

推荐阅读