在R中为散点图中的特定点着色

在R中为散点图中的特定点着色,r,R,我对R和ggplot2有些陌生。我一直在尝试创建一个散点图,其中有一个特定的点是彩色的。例如,下面是我的基本数据框架 manager Confirmed Overturned keeping Stands total A.J. Hinch 11 24 0 14 49 Angel Hernandez 0 1 0 0 1 Bill Miller 3

我对R和ggplot2有些陌生。我一直在尝试创建一个散点图,其中有一个特定的点是彩色的。例如,下面是我的基本数据框架

manager     Confirmed Overturned  keeping  Stands  total
A.J. Hinch     11         24         0       14     49
Angel Hernandez 0          1         0        0      1
Bill Miller     3          1         0        4      8
Bob Melvin      6         16         0        6      28
Brad Ausmus     3         11         0       13      27
有了这个,我可以用这个代码创建一个简单的散点图

p <- ggplot(data = Outcome, aes(x = Overturned, y = total))
p + geom_point()

p请注意,我只是使用姓氏,因为当我从剪贴板读取数据时,它认为姓氏是行标签

Outcome$color_me <- ifelse(Outcome$manager == "Hinch", "color_me", "normal")
textdf           <- Outcome[Outcome$manager == "Hinch", ]
mycolors         <- c("color_me" = "blue", "normal" = "grey50")

ggplot(data = Outcome, aes(x = Overturned, y = total)) +
  geom_point(size = 3, aes(colour = color_me))

您只需将另一个散点图图层添加到绘图中即可。这是我使用的代码。希望有帮助

> df = as.data.frame(cbind(Overturned = c(24,1,1,16,11), total = c(49,1,8,28,27)))
> library(ggplot2)
> p <- ggplot(data = df, aes(x = Overturned, y = total)) # creates the graph
> p + geom_point(data = df, color = "gray") + # creates main scatter plot with gray points
   geom_point(data = df[1,], color = "blue") # colors A.J. Hinch's point blue
>df=as.data.frame(cbind(翻转=c(24,1,1,16,11),总计=c(49,1,8,28,27)))
>图书馆(GG2)
>p+geom_点(data=df,color=“gray”)+#创建带有灰色点的主散点图
geom_点(数据=df[1,],color=“blue”)#将A.J.Hinch的点涂成蓝色
下面是结果图:

您似乎想要创建一个包含两个级别的列。一个用于A.J.Hinch,另一个用于其他。您可以使用该列指定颜色。
ggplot(df,aes(x=oververed,y=total,color=manager='A.J.Hinch'))+geom_point(show.legend=FALSE)+scale_color_手册(value=c('gray','blue'))
> df = as.data.frame(cbind(Overturned = c(24,1,1,16,11), total = c(49,1,8,28,27)))
> library(ggplot2)
> p <- ggplot(data = df, aes(x = Overturned, y = total)) # creates the graph
> p + geom_point(data = df, color = "gray") + # creates main scatter plot with gray points
   geom_point(data = df[1,], color = "blue") # colors A.J. Hinch's point blue