R画图，3个基本图形，数据和结果图附后。

1.散点图和箱线图叠加
2.用点图表示频率分布，图中三角形为平均值
3.（数据同2）折线图，其中三角形为均值，图中两个阴影部分的面积相等。

1.xlsx (9.37 KB)

2018-4-7 20:21:52 上传

2-3.xlsx (9.15 KB)

2018-4-7 20:21:07 上传

1. data2_ecdf <- data2 %>%
   
2.   arrange(年龄) %>%
   
3.   mutate(Freq = row_number() / nrow(.)) %>%
   
4.   group_by(年龄) %>%
   
5.   filter(row_number() == max(row_number())) %>%
   
6.   ungroup() %>%
   
7.   mutate(Freq2 = lag(Freq)) %>%
   
8.   gather(ignore, ECDF, 2:3) %>%
   
9.   na.omit() %>%
   
10.   select(-ignore) %>%
    
11.   arrange(年龄, ECDF)
    
12. 
    
13. data2_fill <- bind_rows(data2_ecdf, tibble(年龄 = mean(data2$年龄), ECDF = NA)) %>%
    
14.   arrange(年龄, ECDF) %>%
    
15.   fill(ECDF) %>%
    
16.   filter(年龄 <= mean(data2$年龄)) %>%
    
17.   bind_rows(tibble(年龄 = mean(data2$年龄), ECDF = 0))
    
18. data2_fill <- bind_rows(tibble(年龄 = 19, ECDF = 0), data2_fill)
    
19. 
    
20. data2_ecdf %>%
    
21.   ggplot(aes(x = 年龄, y = ECDF)) +
    
22.   geom_polygon(data = data2_fill, aes(x = 年龄, y = ECDF), fill = "pink", alpha = 0.5) +
    
23.   geom_line() +
    
24.   geom_segment(x = mean(data2$年龄), xend = mean(data2$年龄), y = 0, yend = 1) +
    
25.   geom_hline(yintercept = 1, linetype = "dashed") +
    
26.   geom_text(x = mean(data2$年龄), y = 1.03, label = "bar(x)", parse = TRUE) +
    
27.   scale_y_continuous(expand = c(0, 0), limit = c(0, 1.1),
    
28.                      breaks = seq(0, 1, by = 0.2)) +
    
29.   scale_x_continuous(breaks = seq(18, 48, by = 2)) +
    
30.   theme(panel.background = element_blank(), axis.line = element_line(arrow = arrow(angle = 30, length = unit(0.2, "cm"))),
    
31.         panel.border = element_blank(),
    
32.         panel.grid = element_blank())

复制代码

1. library(tidyverse)
   
2. library(ggExtra)
   
3. 
   
4. p1 <- data1 %>%
   
5.   ggplot(aes(x = EMPLOYEES, y = CRIMERAT)) +
   
6.   geom_point() +
   
7.   theme_bw() +
   
8.   theme(panel.border = element_blank(),
   
9.         panel.grid = element_blank(),
   
10.         axis.line = element_line(size = 1,
    
11.                                  arrow = arrow(angle = 30,
    
12.                                                length = unit(0.2, "cm"))))
    
13. 
    
14. ggMarginal(p1, type = "boxplot", fill = "gray80")

复制代码

1. data_triangle <- tibble(x = mean(data2$年龄), y = -1)
   
2. data_xAxis_text <- tibble(x = seq(20, 46, by = 2), y = -0.8, label = seq(20, 46, by = 2))
   
3. data_xAxis_ticks <- tibble(x = seq(20, 46, by = 2), y = 0, yend = -0.2)
   
4. 
   
5. data2 %>%
   
6.   arrange(年龄) %>%
   
7.   group_by(年龄) %>%
   
8.   mutate(n = row_number()) %>%
   
9.   ggplot(aes(年龄, n)) +
   
10.   geom_point(size = 7) +
    
11.   geom_point(data = data_triangle, aes(x , y), shape = 2, size = 5) +
    
12.   geom_segment(x = 18, xend = 48, y = 0, yend = 0, size = 1,
    
13.                arrow = arrow(angle = 30, ends = "both", length = unit(0.2, "cm"))) +
    
14.   geom_segment(data = data_xAxis_ticks, aes(x = x, xend = x, y = y, yend = yend)) +
    
15.   geom_text(data = data_xAxis_text, aes(x = x, y = y, label = label)) +
    
16.   theme(panel.background = element_blank(),
    
17.         panel.border = element_blank(),
    
18.         panel.grid = element_blank(),
    
19.         axis.title.y = element_blank(),
    
20.         axis.text.x = element_blank(),
    
21.         axis.ticks.x = element_blank())

复制代码

答案已采纳，谢谢！

cheetahfly 发表于 2018-4-7 20:22

这个图还有个小三角怎么弄出来啊？谢谢！