Re: [問題] 折線圖+長條圖呈現

看板R_Language作者sacidoO (阿罵)時間8年前 (2017/06/13 12:16)推噓4(4推 0噓 10→)

留言14則, 4人參與討論串6/9 (看更多)

#更新感謝版主c大各種code詳解及G大還有Andrew大的幫忙!已經有解了更新方法一於置底借用這個標題跟原po有一樣的問題試了幾個幫法但是都不成功......... 不知道版上有沒有人能有方法解決兩種方法使其更優......感謝了! [程式範例] #data: 用c大分享的 code library(dplyr) ngrp <- 2L numSamples <- 200L DF <- data.frame(V1 = sample(1L:3L, numSamples, TRUE), V2 = sample(1L:2L, numSamples, TRUE), V3 = rnorm(numSamples), V4 = rnorm(numSamples), V5 = rnorm(numSamples)) #sum statistics sum0<-DF %>% group_by(V1) %>% summarise (mean=mean(V2),n=n()) #方法一: bar chart 不在節點上,看起來怪怪的 par(mar=c(4,4.5,4,4)) barplot(sum0$n,ylim=c(0,max(sum0$n)+0.1*max(sum0$n)), yaxt="n",width=0.2,space=2) axis(side=4) mtext("Count", side=4, line=1.8) par(new=T) plot(sum0$V1,sum0$mean, xlab="cartegpory level", ylim=c(0,2), ylab="") mtext("Group mean",side=2, line=1.8) lines(sum0$V1,sum0$mean, type="o") #方法二使用ggpltot, 但是無法讓兩圖在同一圖上... library(ggplot2) #frequency plot g.botton<-ggplot()+geom_bar(data=sum0,aes(x=V1, y=n), stat="identity")+ labs(y="Counts")+ theme_classic() #line plot g.top<-ggplot()+geom_line(data=sum0, aes(x=V1, y=mean, group=1))+geom_point(data=sum0,aes(x=V1,y=mean, group=1))+ scale_y_continuous(limits = c(0,2),position="right")+ labs(y="Group mean")+ theme_classic() print(g.bottom) #vp ? print(g.top) #vp? ※ 引述《samex4x4 (Same)》之銘言： : [問題類型]: : : 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) : : [軟體熟悉度]: : 入門(寫過其他程式，只是對語法不熟悉) : [問題敘述]: : 想詢問是否有辦法同時畫出長條圖和摺線圖在一張圖表上？ : 兩者是不同的數值(取不同欄位) : 大概是長這樣 : http://imgur.com/b5XELZF.jpg

: 謝謝QQ : [程式範例]: : : : [環境敘述]: : : 3.3.2 : : [關鍵字]: : : 選擇性，也許未來有用 : -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 72.195.237.4 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1497327383.A.763.html

推

Goldexp

06/13 13:12, , 1^F

06/13 13:12, 1^F

→

Goldexp

06/13 13:13, , 2^F

06/13 13:13, 2^F

感謝G大分享此方法試過之後貌似grid.arrange只會將圖合併成上下圖...

→

andrew43

06/14 01:13, , 3^F

06/14 01:13, 3^F

→

andrew43

06/14 01:13, , 4^F

06/14 01:13, 4^F

→

andrew43

06/14 01:13, , 5^F

06/14 01:13, 5^F

感謝andrew大提醒! 更新修改方法於下: #更新:加入xlim可解 par(mar=c(4,4.5,4,4)) Y<-barplot(sum0$n,sum0$V1,ylim=c(0,max(sum0$n)+0.1*max(sum0$n)), yaxt="n",width=0.2,space=2,xlim=c(min(Y)-0.1*max(Y),max(Y)+0.1*max(Y))) axis(side=4) mtext("Count", side=4, line=1.8) par(new=T) plot(Y,sum0$mean, xlab="cartegpory level", ylim=c(0,2), ylab="",xlim=c(min(Y)-0.1*max(Y),max(Y)+0.1*max(Y)),xaxt="n") mtext("Group mean",side=2, line=1.8) lines(Y,sum0$mean, type="o",ylab="",xlim=c(min(Y)-0.1*max(Y),max(Y)+0.1*max(Y)),xaxt="n") 圖範例: http://imgur.com/XTNEEVL