请教一个关于ggplot2关于作双坐标轴图的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

library(ggplot2)
library(gcookbook)
library(scales)
data1<-data.frame(
  value<-c(205463.75,12.31,105743.06,12979.31,63958.87,0,96530.3,2610,45029.74,2689.78,
           88141,1300,69885.97,1000),
  place<-c('市区合计','市区合计','天畅合计','天畅合计','院长合计','院长合计','光明合计','光明合计',
           '光机合计','光机合计','景龙合计','景龙合计','启安合计','启安合计'),
  category<-c('贷款余额','未代偿余额','贷款余额','未代偿余额','贷款余额','未代偿余额',
              '贷款余额','未代偿余额','贷款余额','未代偿余额','贷款余额','未代偿余额',
              '贷款余额','未代偿余额') )
data2<-data.frame(
  ratio<-c(0.0001,0.1227,0,0.027,0.0597,0.0147,0.0143),
  category1<-c('市区合计','天畅合计','院长合计','光明合计','光机合计','景龙合计','启安合计'))
p<-ggplot(data=data1,aes(x=place,y=value,fill=category))+
  geom_bar(stat="identity",width=0.5,position="dodge")+
  geom_text(aes(label=value,vjust = -0.8, hjust =.5), show.legend = FALSE)+
  labs(title="各地区贷款情况  单位：万元", x="", y="")+
  theme_bw()+theme(panel.grid =element_blank())+
  theme(panel.background = element_rect(fill="lightcyan"))+
  theme(legend.title=element_blank(),legend.position="bottom")+
  theme(title=element_text(size=15,color="black",face="bold",hjust=0.2))
p+geom_line(data=data2,aes(x=category1,y=rescale(ratio,c(0,200000)),group=category1))+
  scale_y_continuous(breaks=pretty_breaks(5),sec.axis=sec_axis(~rescale(.,c(0,0.5)),
                                                 name="Ratio",labels=sprintf("%d%%",(0:5)*10)))
p运行出来是没有问题的，然后再添加副坐标轴运行的时候出现了这样的提示
Error: Aesthetics must be either length 1 or the same as the data (7): fill。
求大神指点迷津怎么解决

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：ggplot2 gplot 双坐标轴 plot 双坐标

1. library(ggplot2)
   
2. library(gcookbook)
   
3. library(scales)
   
4. 
   
5. data1<-data.frame(
   
6.   value = c(205463.75, 12.31, 105743.06, 12979.31, 63958.87, 0, 96530.3,
   
7.             2610, 45029.74, 2689.78, 88141, 1300, 69885.97, 1000),
   
8.   place = c('市区合计', '市区合计', '天畅合计', '天畅合计', '院长合计', '院长合计',
   
9.             '光明合计', '光明合计', '光机合计', '光机合计', '景龙合计', '景龙合计',
   
10.             '启安合计', '启安合计'),
    
11.   category = c('贷款余额', '未代偿余额', '贷款余额', '未代偿余额', '贷款余额',
    
12.                '未代偿余额', '贷款余额', '未代偿余额', '贷款余额', '未代偿余额',
    
13.                '贷款余额', '未代偿余额', '贷款余额', '未代偿余额'))
    
14. 
    
15. data2 <- data.frame(
    
16.   ratio = c(0.0001, 0.1227,0, 0.027, 0.0597, 0.0147, 0.0143),
    
17.   place = c('市区合计', '天畅合计', '院长合计', '光明合计', '光机合计', '景龙合计', '启安合计'))
    
18. 
    
19. p <- ggplot(data = data1, aes(x = place, y = value)) +
    
20.   geom_bar(aes(fill = category), stat = "identity", width = 0.5, position = "dodge")+
    
21.   geom_text(aes(label = value, vjust = -0.8, hjust = .5), show.legend = FALSE) +
    
22.   labs(title = "各地区贷款情况  单位：万元", x = "", y = "")+
    
23.   theme_bw() +
    
24.   theme(panel.grid = element_blank(),
    
25.         panel.background = element_rect(fill = "lightcyan"),
    
26.         legend.title = element_blank(),legend.position = "bottom",
    
27.         title = element_text(size = 15, color = "black", face = "bold", hjust = 0.2))
    
28. 
    
29. p + geom_line(data = data2, aes(x = place, y = rescale(ratio, c(0, 200000)), group = 1)) +
    
30.   scale_y_continuous(breaks = pretty_breaks(5),
    
31.                      sec.axis = sec_axis(~ rescale(., c(0, 0.5)),
    
32.                                          name = "Ratio",
    
33.                                          labels = sprintf("%d%%", (0:5) * 10)))

复制代码

cheetahfly 发表于 2019-5-10 13:12

请问一下改为group=1的原因是什么

不同组的不能连线

cheetahfly 发表于 2019-5-10 17:36
不同组的不能连线

非常感谢。另外我发现data.frame里用“=”和用“<-”会有截然不同的结果，请问是什么原因呢？
ps:没有经验，自己摸索，见笑

cheetahfly 发表于 2019-5-10 17:36
不同组的不能连线

非常感谢。另外我发现data.frame里用“=”和用“<-”会有截然不同的结果，请问是什么原因呢？
ps:没有经验，自己摸索，见笑