ggplot图说明星收入（二）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

绘制各国条形图

1. temp <- aggregate(Earnings
   
2. ~  country, data
   
3. = star, sum)
   
4. 
   
5. temp <- temp[order(temp$Earnings),]
   
6. 
   
7. n <- unique(temp$country)
   
8. 
   
9. temp$country <- factor(temp$country, levels
   
10. = n)#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
11. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
12. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">这里要设置name<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
13. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
14. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">的level<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
15. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
16. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">顺序，不然ggplot<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
17. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
18. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">会对他重新排序
    
19. 
    
20. theme_opts <- list(theme(panel.grid.minor = element_blank(),
    
21. 
    
22.                          panel.grid.major.y = element_blank(),
    
23. 
    
24.                          panel.grid.major.x = element_blank(),
    
25. 
    
26.                          plot.background = element_rect(fill = "transparent",colour = NA),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
27. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
28. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">设置整幅图的背景透明色
    
29. 
    
30.                          panel.border = element_blank(),
    
31. 
    
32.                          panel.background = element_rect(fill = "transparent",colour = NA),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
33. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
34. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">设置绘图区的颜色为透明色
    
35. 
    
36.                          axis.ticks.y = element_blank(),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
37. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
38. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">改变坐标轴刻度线行为
    
39. 
    
40.                          axis.ticks.x = element_blank(),
    
41. 
    
42.                          axis.text.x = element_blank(),
    
43. 
    
44.                          axis.text.y = element_text(colour="grey20",
    
45. size=12),
    
46. 
    
47.                          axis.title.y = element_blank(),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
48. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
49. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">设置y<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
50. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
51. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">轴标签为空
    
52. 
    
53.                          axis.title.x = element_blank(),
    
54. 
    
55.                          plot.title = element_text(size=40)))
    
56. 
    
57. p <- ggplot(temp,aes(x =
    
58. country, y = Earnings)) +
    
59. 
    
60.   geom_bar(stat = "identity",fill = rgb(red = 0, green = 137, blue = 130, max = 255)) +
    
61. 
    
62.   theme_opts + coord_flip()
    
63. +
    
64. 
    
65.   guides(fill=FALSE)
    
66. 
    
67. #<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
68. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
69. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">设置legend<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
70. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
71. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">的行为除了上述的guides<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
72. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
73. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">方式还有theme(legend.position="none")<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
74. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
75. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">，这里我们设置了图表背景为透明色，为了方便绘制的图表能够和其他共组绘制的图表融合，我们z<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
76. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
77. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">好选择将绘图区也设置为透明，另外我们把鱼坐标轴相关的所有配件包括坐标轴标签、刻度线、坐标轴线、坐标轴名称和网格线全部设置为空，因为这样我们可以方便的将图和表融合在一起，暂时还没想到R<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
78. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
79. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">怎么把图和表融合在一起。
    
80. 
    
81. #png('<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
82. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
83. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">国家',width=713,height=323,units="px",bg =
    
84. "transparent")
    
85. 
    
86. #print(p)
    
87. 
    
88. #dev.off()

复制代码

绘制气泡图

1. temp <- aggregate(Earnings
   
2. ~  country, data
   
3. = star, sum)
   
4. 
   
5. size <- as.data.frame(table(star$country))
   
6. 
   
7. colnames(size)
   
8. <- c("country",
   
9. "Freq")
   
10. 
    
11. temp <- join(temp,
    
12. size)
    
13. 
    
14. ## Joining by: country
    
15. 
    
16. temp <- temp[order(temp$Earnings),]
    
17. 
    
18. n <- unique(temp$country)
    
19. 
    
20. temp$country <- factor(temp$country, levels
    
21. = n)#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
22. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
23. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">这里要设置name<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
24. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
25. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">的level<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
26. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
27. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">顺序，不然ggplot<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
28. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
29. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">会对他重新排序
    
30. 
    
31. temp <- cbind(temp,
    
32. m = c(rep(1, length(temp[,1]))))
    
33. 
    
34. theme_opts <- list(theme(panel.grid.minor = element_blank(),
    
35. 
    
36.                          panel.grid.major.y = element_blank(),
    
37. 
    
38.                          panel.grid.major.x = element_blank(),
    
39. 
    
40.                          plot.background = element_rect(fill = "transparent",colour = NA),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
41. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
42. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">设置整幅图的背景透明色
    
43. 
    
44.                          panel.border = element_blank(),
    
45. 
    
46.                          panel.background = element_rect(fill = "transparent",colour = NA),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
47. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
48. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">设置绘图区的颜色为透明色
    
49. 
    
50.                          axis.ticks.y = element_blank(),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
51. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
52. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">改变坐标轴刻度线行为
    
53. 
    
54.                          axis.ticks.x = element_blank(),
    
55. 
    
56.                          axis.text.x = element_blank(),
    
57. 
    
58.                          axis.text.y = element_text(colour="grey20",
    
59. size=12),
    
60. 
    
61.                          axis.title.y = element_blank(),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
62. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
63. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">设置y<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
64. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
65. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">轴标签为空
    
66. 
    
67.                          axis.title.x = element_blank(),
    
68. 
    
69.                          plot.title = element_text(size=40)))
    
70. 
    
71. p <- ggplot(temp,aes(x =
    
72. country, y = m, size = Freq)) +
    
73. 
    
74.   geom_point(colour = rgb(red = 252, green = 102, blue = 129, max = 255), fill="white") + coord_flip()
    
75. +
    
76. 
    
77.   scale_size_area(max_size = 25) +
    
78. 
    
79.   #geom_text(data=temp,aes(x = country, y = m,
    
80. label = Freq, size = 4)) +
    
81. 
    
82.   theme_opts +
    
83. 
    
84.   guides(size = FALSE)
    
85. 
    
86. #png('<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
87. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
88. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">国家人数',width=232,height=1000,units="px",bg =
    
89. "transparent")
    
90. 
    
91. #print(p)
    
92. 
    
93. #dev.off()

复制代码

各行业收入比例

1. temp <- aggregate(Earnings
   
2. ~  Category, data
   
3. = star, summary)
   
4. 
   
5. write.csv(temp,
   
6. "H:/<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
   
7. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
   
8. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">自媒体/2015-07-04/Category.csv")

复制代码

各行业最高收入，平均收入即summary表

相关数据和代码：http://pan.baidu.com/s/1g6kQa   密码：微信索取
关于我们，关注理性与文艺，用数据创作内容性的精致阅读，这里是数据分析挖掘人员与文艺青年的集结地，不做培训，不做鼓吹，只踏踏实实的做一个又一个数据驱动的文章，并设计机器人减轻数据分析的负担，无论你感兴趣还是想参与都可以关注，请加微信公众号大音如霜

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：gplot plot GPL Temp TEM ggplot2 气泡图

LZ牛人，但代码有问题，需要重新排版~

ofzhengyi 发表于 2015-7-5 10:17
LZ牛人，但代码有问题，需要重新排版~

网盘有代码，不知道我的代码传上来就变了

nb，支持一下！

最好程序最前面能够写上 调用一个R自带的数据集的命令，
这样大家更加容易学习

qiangli 发表于 2015-7-26 08:01
最好程序最前面能够写上 调用一个R自带的数据集的命令，
这样大家更加容易学习

我们的代码是跟着微信文章走的哦