ggplot图说明星收入（一）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

根据福布斯最近发布的全球明星收入top100的数据，我们要分析几个问题：1）收入和年龄的关系；2）各国总收入和人次比例；3）男女比例；4）各行业summary数据

载入包

1. library(reshape2)
   
2. 
   
3. library(plyr)
   
4. 
   
5. library(ggplot2)

复制代码

读入数据

1. star <- read.csv("H:/<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
   
2. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
   
3. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">自媒体/2015-07-04/<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
   
4. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
   
5. mso-hansi-font-family:Consolas;mso-bidi-font-family:" times="" new="" roman";="" mso-bidi-theme-font:minor-bidi"="">明星收入分析.csv",
   
6. header = T, sep = ",", stringsAsFactor = F)

复制代码

如果不是特别需要读取数据时最好设置stringsAsFactor参数为FALSE，因为一旦默认将字符转化为了因子你可能会碰到各种报错，当你碰到factor字符出现的错误时你就要考虑一下自己是不是将因子当成字符了。

绘制收入和年龄的关系图

1. theme_opts <- list(theme(panel.grid.major.y
   
2. = element_line(colour=rgb(red = 146, green
   
3. = 146, blue
   
4. = 146, max
   
5. = 255), size
   
6. =1),
   
7. 
   
8.                          panel.grid.major.x = element_line(colour=rgb(red = 146, green = 146, blue = 146, max = 255), size =1),
   
9. 
   
10.                          plot.background = element_rect(fill=rgb(red = 242, green = 242, blue = 242, max = 255)),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
11. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
12. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">设置整幅图的背景
    
13. 
    
14.                          panel.border = element_blank(),
    
15. 
    
16.                          panel.background = element_rect(fill=rgb(red = 242, green = 242, blue = 242, max = 255)),#<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.                          axis.text.x
    
21. = element_text(colour="grey20",
    
22. size=12),
    
23. 
    
24.                          axis.text.y = element_text(colour="grey20",
    
25. size=12),
    
26. 
    
27.                          axis.ticks.x = element_blank(),
    
28. 
    
29.                          axis.ticks.y = element_line(size =1),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
30. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
31. 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:
    
32. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
33. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">轴坐标轴刻度线的粗细
    
34. 
    
35.                          #axis.text.y = element_blank(),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
36. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
37. 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:
    
38. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
39. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">轴标签为空
    
40. 
    
41.                          #axis.text.x = element_blank(),
    
42. 
    
43.                          axis.title.y = element_blank(),
    
44. 
    
45.                          axis.title.x = element_blank()))
    
46. 
    
47. cols <- c(rgb(red = 0, green = 130, blue = 137, max = 255),
    
48. 
    
49.          
    
50. rgb(red = 252, green = 102, blue = 129, max = 255),
    
51. 
    
52.          
    
53. rgb(red = 120, green = 81, blue = 76, max = 255))
    
54. 
    
55. temp <- star[!is.na(star$Age),]
    
56. 
    
57. p <- ggplot(star,aes(x =
    
58. Age,y = Earnings))
    
59. 
    
60. p <- p + geom_point(aes(colour =
    
61. sex), size = 8, alpha = 0.8) + scale_colour_manual(values = cols)#<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"="">设置散点的大小颜色
    
64. 
    
65. p <- p + coord_cartesian(xlim = c(20, 75))
    
66. 
    
67. p <- p + scale_x_continuous(breaks = seq(20, 75,by = 5))
    
68. 
    
69. #p <- p+geom_text(aes(label = state_abbrev),alpha
    
70. = 0.3, jitter = TRUE)#jitter<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
71. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
72. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">参数设置随机移动一点远距离避免重合
    
73. 
    
74. p <- p + geom_hline(yintercept=50, size = 1.5, color = rgb(red = 253, green = 107, blue = 117, max = 255), alpha = 0.8)
    
75. 
    
76. #p <- p +
    
77. geom_smooth(method="loess",span=1.05,se=FALSE, color = rgb(red = 0,
    
78. green = 137, blue = 130, max = 255), size =1)
    
79. 
    
80. p <- p + guides(colour=FALSE)
    
81. 
    
82. p <- p + theme_opts

复制代码

从年龄上分析，收入前一百名明星中多集中在20-50岁以下，尤其是女性群体，演艺和竞技圈确实不属于高龄人群统治的领域，毫无疑问这是一个靠脸（体力）吃饭的领域，而我国中医行业恰恰相反，中医必须老龄化才吃得开，真正是一个疗效只看皱纹的行当，当然前提是如果有疗效的话。

绘制性别饼图

1. temp <- aggregate(Earnings
   
2. ~  sex, data
   
3. = star, sum)
   
4. 
   
5. percent <- function(x, digits = 2, format = "f",
   
6. ...) {
   
7. 
   
8.   paste0(formatC(100 * x, format =
   
9. format, digits = digits, ...), "%")
   
10. 
    
11. }
    
12. 
    
13. theme_opts <- list(theme(panel.grid=element_blank(),
    
14. 
    
15.                          plot.background = element_rect(fill=rgb(red = 242, green = 242, blue = 242, max = 255)),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
16. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
17. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">设置整幅图的背景
    
18. 
    
19.                          panel.border = element_blank(),
    
20. 
    
21.                          panel.background = element_rect(fill=rgb(red = 242, green = 242, blue = 242, max = 255)),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:Consolas;mso-fareast-font-family:
    
22. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
23. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">设置绘图区的颜色
    
24. 
    
25.                          axis.text.x = element_text(colour="grey20",
    
26. size=12),
    
27. 
    
28.                          axis.text.y = element_text(colour="grey20",
    
29. size=12),
    
30. 
    
31.                          axis.ticks = element_blank(),
    
32. 
    
33.                          axis.text.y
    
34. = element_blank(),#<span lang="EN-US" style="font-family:宋体;mso-ascii-font-family:
    
35. Consolas;mso-fareast-font-family:宋体;mso-fareast-theme-font:minor-fareast;
    
36. 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:
    
37. 宋体;mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Consolas;
    
38. mso-bidi-font-family:" times="" new="" roman";mso-bidi-theme-font:minor-bidi"="">轴标签为空
    
39. 
    
40.                          #axis.text.x = element_blank(),
    
41. 
    
42.                          axis.title.y = element_blank(),
    
43. 
    
44.                          axis.title.x = element_blank()))
    
45. 
    
46. temp <- aggregate(Earnings
    
47. ~  sex, data = star, sum)
    
48. 
    
49. cols <- c(rgb(red = 0, green = 130, blue = 137, max = 255),
    
50. 
    
51.          
    
52. rgb(red = 252, green = 102, blue = 129, max = 255),
    
53. 
    
54.          
    
55. rgb(red = 120, green = 81, blue = 76, max = 255))
    
56. 
    
57. p <- ggplot(temp,
    
58. aes(x = "",
    
59. y =
    
60. Earnings, fill = sex))+
    
61. 
    
62. geom_bar(width = 1, stat = "identity")
    
63. 
    
64. p <- p + coord_polar("y",
    
65. start=0)
    
66. 
    
67. p <- p + scale_fill_manual(values = cols)
    
68. 
    
69. p <- p + geom_text(aes(y =
    
70. Earnings/3 + c(0,cumsum(Earnings)[-length(Earnings)]),
    
71. 
    
72. 
    
73.                
    
74. label = percent(Earnings/sum(temp$Earnings), digits
    
75. = 2)), size=25, color = "white")#<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"="">添加百分比
    
78. 
    
79. 
    
80. 
    
81. p <- p + guides(fill=FALSE)
    
82. 
    
83. p <- p + theme_opts
    
84. 
    
85. p <- p + theme(axis.text.x=element_blank())

复制代码

这里需要注意一点ggplot默认情况下（stat = "bin"）bar的高指的是观测值个数，所以你要指具体的数值需要设置为identity。pie图不是很满意有空再修改。 收入前一百名中，男性收入占总收入的75.29%，尽管近年来女性地位提升很高，也许在精神世界的地位更高，但好像每一个行业实际上仍然是男性主导者一切。

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

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：gplot plot GPL Library reshape ggplot2 气泡图

markdown在论坛会被转码，有需要原码可以去百度云盘下载