91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

ggplot2笛卡爾坐標系x、y軸怎么互換

發布時間:2022-03-18 17:18:27 來源:億速云 閱讀:447 作者:iii 欄目:開發技術

這篇文章主要介紹了ggplot2笛卡爾坐標系x、y軸怎么互換的相關知識,內容詳細易懂,操作簡單快捷,具有一定借鑒價值,相信大家閱讀完這篇ggplot2笛卡爾坐標系x、y軸怎么互換文章都會有所收獲,下面我們一起來看看吧。

library('ggplot2')
library('reshape2')

A = c("A","B","C","D","E")
B = c(90,34,56,99,15)
C = c(50,20,24,70,14)

dat = data.frame(A,B,C)
names(dat) = c("type","sample1","sample2")
dat = melt(dat,variable.name="Sample",value.name = "Num")
head(dat)

p = ggplot(dat, aes(x = type,y = Num,fill = Sample))+
    geom_bar(stat ="identity",width = 0.6,position = position_dodge(width=0.8))+        
  scale_fill_manual(values = c("red","blue"))+
  labs(x = "",y = "", title = "test")+
   geom_text(aes(label = dat$Num),position=position_dodge(width = 0.9),size = 5,vjust = -0.25)+  
  guides(fill = guide_legend(reverse = F))+
  theme(plot.title = element_text(size = 25,face = "bold", vjust = 0.5, hjust = 0.5),
        legend.title = element_blank(),
        legend.text = element_text(size = 18, face = "bold"),
        legend.position = 'right',
        legend.key.size=unit(0.8,'cm'))



p=p+coord_flip()
p


不過由此可知,進行坐標互換之后,原來的設置中關于文字圖層中文字位置需要進行調整,具體調整vjust和hjust即可。譬如:

library('ggplot2')
library('reshape2')

A = c("A","B","C","D","E")
B = c(90,34,56,99,15)
C = c(50,20,24,70,14)

dat = data.frame(A,B,C)
names(dat) = c("type","sample1","sample2")
dat = melt(dat,variable.name="Sample",value.name = "Num")
head(dat)

p = ggplot(dat, aes(x = type,y = Num,fill = Sample))+
    geom_bar(stat ="identity",width = 0.6,position = position_dodge(width=0.8))+        
  scale_fill_manual(values = c("red","blue"))+
  labs(x = "",y = "", title = "test")+
   geom_text(aes(label = dat$Num),position=position_dodge(width = 0.9),size = 5,vjust = 0.5,hjust=-0.25)+  
  guides(fill = guide_legend(reverse = F))+
  theme(plot.title = element_text(size = 25,face = "bold", vjust = 0.5, hjust = 0.5),
        legend.title = element_blank(),
        legend.text = element_text(size = 18, face = "bold"),
        legend.position = 'right',
        legend.key.size=unit(0.8,'cm'))



p=p+coord_flip()
p

關于“ggplot2笛卡爾坐標系x、y軸怎么互換”這篇文章的內容就介紹到這里,感謝各位的閱讀!相信大家對“ggplot2笛卡爾坐標系x、y軸怎么互換”知識都有一定的了解,大家如果還想學習更多知識,歡迎關注億速云行業資訊頻道。

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

鲁甸县| 阜新市| 德昌县| 梁山县| 巴林右旗| 沂南县| 濉溪县| 镶黄旗| 泾源县| 綦江县| 扬中市| 二手房| 博白县| 来安县| 陆丰市| 探索| 尉氏县| 渭源县| 临江市| 浦江县| 富源县| 澳门| 嘉定区| 南宁市| 澄江县| 百色市| 凤山县| 东明县| 庐江县| 白城市| 富锦市| 永定县| 阿勒泰市| 布尔津县| 宜州市| 新泰市| 安新县| 米脂县| 望城县| 阿尔山市| 略阳县|