R 如何在坐标中标记具有给定数字属性的所有点？

我目前拥有以下R脚本：

library(ggplot2)

png("collatz-max-in-seq.png", width = 512, height = 800)

mydata = read.csv("../collatz-maxNumber.csv")

# Prepare data
p<-ggplot(mydata, aes(x=n, y=maximum))+ scale_y_continuous(formatter = "comma", limits = c(0, 100000))

p<-p + geom_point()
p<-p + opts(panel.background = theme_rect(fill='white', colour='white'))

# This will save the result in a pdf file called Rplots.pdf
p

dev.off()

库（ggplot2）
png（“序列png中的最大衣领”，宽度=512，高度=800）
mydata=read.csv（“../collatz maxNumber.csv”）
#准备数据
这应该行得通。你所需要做的就是添加一列，根据你的
x
值是否是二的幂，为色彩美学添加一个值。在本例中，“n”是2的幂的所有行取值2，否则取值1：

mydata$col <- ( sqrt(mydata$n) %% 1  == 0 ) + 1

行动中的一个例子

#  Sample data
mydata <- data.frame( n = rep(1:9,4) , y = sample( 20 , 36 , repl = TRUE ) )

#  Make the colour aesthetic
mydata$col <- ( sqrt(mydata$n) %% 1  == 0 ) + 1

#  Plot!
ggplot( mydata , aes( x = n ,  y = y , colour = factor(col) ) )+
geom_point( )

#示例数据
mydata注意到，
opts
在最新版本的ggplot2中被弃用。您可能还对函数
ggsave
感兴趣。它使
ggplot
将1/2视为分类变量，而不是连续变量（影响色标）。尝试删除
因子（）
，只需使用
color=col
查看它如何改变绘图。
#  Sample data
mydata <- data.frame( n = rep(1:9,4) , y = sample( 20 , 36 , repl = TRUE ) )

#  Make the colour aesthetic
mydata$col <- ( sqrt(mydata$n) %% 1  == 0 ) + 1

#  Plot!
ggplot( mydata , aes( x = n ,  y = y , colour = factor(col) ) )+
geom_point( )