LIVE🎥 新品任二件折$１００💰
傳送門 ➠https://bit.ly/39Ozt31
這波活動還是要跟上拉🤣
#省錢小撇步
買２件折$100
買４件折$200
買６件折$300
買８件折$400
☝️以此類推 買越多折越多唷!
．
🔍 編號：A8262
麻花V領針織短袖上衣 粉/藍/黃
<< https://bit.ly/3uxhpUD
🔍 編號：A8318
正韓R字母刺繡造型棒球帽 咖
<< https://bit.ly/3ikmdIh
🔍 編號：A8772
翻領排釦針織長袖上衣 杏/藍
<< https://bit.ly/3AUBZkk
🔍 編號：A8778
側挖肩造型針織長袖上衣 黑/杏
<< https://bit.ly/3us3SxO
🔍 編號：A8799
牛仔外套雙釦短裙SET組 杏/綠
<< https://bit.ly/2YgQxMO
🔍 編號：A8838
V領麻花針織背心洋 黑/白
<< https://bit.ly/3omyoIe
🔍 編號：A8803
氣質格紋傘擺長裙(附腰帶) F
<< https://bit.ly/3AUZlGx
🔍 編號：A8840
立領木耳邊親膚針織上衣 黑/白/杏/橘
<< https://bit.ly/3mcf7Xh
🔍 編號：A8844
純色寬肩無袖上衣 F
<< https://bit.ly/3kU1RXR
🔍 編號：A8846
標籤口袋側開岔丹寧吊帶裙 黑/藍
<< https://bit.ly/39SRrBn
🔍 編號：A8812
格紋毛呢高腰褲裙 黑/卡其 S-L
<< https://bit.ly/3B0D1v2
🔍 編號：A8853
連帽皮革短T細肩背心洋SET組 F
<< https://bit.ly/3kVeWAa
🔍 編號：A8854
圓領印圖寬版短袖TEE 粉/紫
<< https://bit.ly/3olz4NS
🔍 編號：A8855
V領抓皺喇叭袖綁帶縮腰上衣 黑/杏
<< https://bit.ly/3mdrWjX
🔍 編號：A8856
襯領假兩件拼接縮腰上衣(附腰帶) 杏/綠
<< https://bit.ly/3okH1mL
🔍 編號：A8859
V領針織長袖上衣細肩長洋SET組 粉/藍
<< https://bit.ly/3mbKMIj
🔍 編號：A8866
高腰原色丹寧短褲裙(附腰帶) M
<< https://bit.ly/39RzZNO
🔍 編號：A8868
雪紡襯衫排釦背心腰帶洋SET組 杏/紫
<< https://bit.ly/3in6jN5
🔍 編號：A8870
純色斜擺一字領寬袖上衣 白/卡其
<< https://bit.ly/3mhVb5w
🔍 編號：A8878
蕾絲拼接V領罩杯上衣 白/灰
<< https://bit.ly/3mehzwm
🔍 編號：A8879
質感車線皮革短褲 黑/卡其 S-L
<< https://reurl.cc/Zjb42l
🔍 編號：A8886
甜美點點綁帶雪紡上衣 F
<< https://reurl.cc/emOMQj
🔍 編號：A8894
襯領排釦牛仔長袖短洋(附皮帶) F
<< https://reurl.cc/Q6bYmZ
🔍 編號：A8906⚡ 特價９６０
配色厚底熊貓休閒鞋 黑/粉 35-40
<< https://reurl.cc/yeMRoa
🔍 編號：A8871
襯領開襟長版風衣外套 黑/可可
<< https://reurl.cc/6D0K9r
r折線圖 在 Re: [問題] 折線圖+長條圖呈現- 看板R_Language 的推薦與評價
#更新 感謝版主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 寫出來)
:
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 想詢問是否有辦法同時畫出長條圖和摺線圖在一張圖表上？
: 兩者是不同的數值(取不同欄位)
: 大概是長這樣
:
: 謝謝QQ
: [程式範例]:
:
:
: [環境敘述]:
:
: 3.3.2
:
: [關鍵字]:
:
: 選擇性，也許未來有用
:
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 72.195.237.4
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1497327383.A.763.html
圖合併成上下圖...
#更新:加入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")
圖範例:
再次感謝大家的時間與幫忙! 謝謝!
※ 編輯: sacidoO (72.195.237.4), 06/14/2017 12:58:07
... <看更多>