画图神器ggplot2之一：geom_point

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

p <- ggplot(mtcars, aes(wt, mpg))

p + geom_point()

# Add aesthetic mappings

p + geom_point(aes(colour = qsec))

p + geom_point(aes(alpha = qsec))

p + geom_point(aes(colour = factor(cyl)))

p + geom_point(aes(shape = factor(cyl)))

p + geom_point(aes(size = qsec))

# Change scales

p + geom_point(aes(colour = cyl)) + scale_colour_gradient(low ="blue")

p + geom_point(aes(size = qsec)) + scale_area()

scale_area is deprecated. Usescale_size_area instead.

Note that the behavior of scale_size_area is slightly different:

  bydefault it makes the area proportional to the numeric value. (Deprecated; lastused in version 0.9.2)

p + geom_point(aes(shape = factor(cyl))) + scale_shape(solid = FALSE)

# Set aesthetics to fixed value

p + geom_point(colour = "red", size = 3)

qplot(wt, mpg, data = mtcars, colour = I("red"), size = I(3))

# Varying alpha is useful for large datasets

d <- ggplot(diamonds, aes(carat, price))

d + geom_point(alpha = 1/10)

d + geom_point(alpha = 1/20)

d + geom_point(alpha = 1/100)

# You can create interesting shapes by layering multiple points of

# different sizes

p <- ggplot(mtcars, aes(mpg, wt))

p + geom_point(colour="grey50", size = 4) +geom_point(aes(colour = cyl))

p + aes(shape = factor(cyl)) +

  geom_point(aes(colour =factor(cyl)), size = 4) +

geom_point(colour="grey90", size = 1.5)

p + geom_point(colour="black", size = 4.5) +

geom_point(colour="pink", size = 4) +

  geom_point(aes(shape =factor(cyl)))

# These extra layers don't usually appear in the legend, but we can

# force their inclusion

p + geom_point(colour="black", size = 4.5, show_guide = TRUE) +

geom_point(colour="pink", size = 4, show_guide = TRUE) +

  geom_point(aes(shape =factor(cyl)))

# Transparent points:

qplot(mpg, wt, data = mtcars, size = I(5), alpha = I(0.2))

# geom_point warns when missing values have been dropped from the data set

# and not plotted, you can turn this off by setting na.rm = TRUE

mtcars2 <- transform(mtcars, mpg = ifelse(runif(32) < 0.2, NA, mpg))

qplot(wt, mpg, data = mtcars2)

Warning message:

Removed 11 rows containing missing values(geom_point).

qplot(wt, mpg, data = mtcars2, na.rm = TRUE)

# Use qplot instead

qplot(wt, mpg, data = mtcars)

qplot(wt, mpg, data = mtcars, colour = factor(cyl))

qplot(wt, mpg, data = mtcars, colour = I("red"))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏10 回帖

关键词：ggplot2 gplot Point plot EOM

jpld 发表于 2015-10-10 21:34
p

3ks

好帖子！

想问楼主，怎么更改图例的大小，插入到word里图例几乎看不见了

谢谢楼主

R graphics cookbook学完绝对收益非浅。

RecaidoJ 发表于 2016-11-22 15:01
想问楼主，怎么更改图例的大小，插入到word里图例几乎看不见了

theme(legend.title=element_text(size=20))修改size后的值