R语言绘制线型和点

为图形上的点加红颜色，并设置点的尺寸为3，alpha=0.6

library(plyr) # Needed for desc()
library(gcookbook) # For the data set
library(tidyverse)
ggplot(BOD, aes(x=Time, y=demand)) + geom_line()+geom_point(size = 3, alpha=0.6) + 
               geom_point(color="red")

设置线的颜色为青色，点的颜色为褐色，点的尺寸为3

# Same with a log y-axis

ggplot(worldpop, aes(x=Year, y=Population)) + geom_line(color="cyan") + geom_point(size = 3, alpha=0.6) + 
  geom_point(color="brown")+
  
  scale_y_log10()

设置线的颜色为青色，点的颜色为褐色，点的尺寸为3

library(plyr) # Needed for desc()
library(gcookbook) # For the data set
library(tidyverse)
ggplot(BOD, aes(x=Time, y=demand)) + geom_line()+geom_point(size = 3, alpha=0.6) + 
               geom_point(color="brown")
ggplot(worldpop, aes(x=Year, y=Population)) + geom_line(color="cyan") + geom_point(size = 3, alpha=0.6) + 
  geom_point(color="brown")

笔者在原著基础上给线条加上了颜色为黄绿色和给点设置了尺寸为5与颜色为青色，效果如下：

# Load plyr so we can use ddply() to create the example data set

library(plyr)

# Summarize the ToothGrowth data

tg <- ddply(ToothGrowth, c("supp", "dose"), summarise, length=mean(len))

# Map supp to colour

ggplot(tg, aes(x=dose, y=length, colour=supp)) + geom_line(color="red")

# Map supp to linetype

ggplot(tg, aes(x=dose, y=length, linetype=supp)) + geom_line(color="yellowgreen")+geom_point(color="cyan",size=5)

将点的颜色设置为supp
ggplot(tg, aes(x=dose, y=length, fill=supp)) + geom_line() +
  
  geom_point(size=4, shape=21,color=supp) # Also use a point with a color fill

在geom_line中设置线型和颜色，并在geom_point设置点颜色为蓝色，效果如下：
ggplot(tg, aes(x=dose, y=length, fill=supp)) + geom_line(linetype="dashed", size=1, colour="cyan") +
  
  geom_point(size=4, shape=21,color='blue') # Also use a point with a color fill

参考文献：Practical Receipes for Visualizing Data----R Graphics Cookbook —Winston Chang O’REILLY