我想向ggplot图表添加ROC曲线,但是它返回错误代码。
library(ggplot2)
library(plotROC)
set.seed(2529)
D.ex <- rbinom(200, size = 1, prob = .5)
M1 <- rnorm(200, mean = D.ex, sd = .65)
M2 <- rnorm(200, mean = D.ex, sd = 1.5)
test <- data.frame(D = D.ex, D.str = c("Healthy", "Ill")[D.ex + 1],
M1 = M1, M2 = M2, stringsAsFactors = FALSE)
plot<-ggplot(longtest, aes(d = D, m = M1 )) + geom_roc() + style_roc()
plot
可以,但是如果我添加新的ROC行,则返回错误
plot<-ggplot(longtest, aes(d = D, m = M1 )) + geom_roc() + style_roc()
plot+ggplot(test, aes(d = D, m = M2)) + geom_roc()
p + o中的错误:二进制运算符的非数字参数此外:警告消息:“ +”的方法不兼容(“ + .gg”,“ Ops.data.frame”)
我如何添加新行并为所有行添加不同的颜色并添加图例
将数据框从宽格式转换为长格式,然后在美学映射中将变量名称映射为线条颜色:
ggplot(melt_roc(test, "D", c("M1", "M2")),
aes(d = D, m = M, color = name)) +
geom_roc() +
style_roc()
如果您愿意,也可以这样做:
ggplot() +
geom_roc(aes(d = D, m = M1, color="roc1"), test) +
geom_roc(aes(d = D, m = M2, color="roc2"), test) +
scale_color_manual(values=c("roc1"="red", "roc2"="blue"),
name="color legend", guide="legend") +
style_roc()
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句