r - Rでバタフライプロットまたは対称棒グラフをプロットする方法

Question

中央の x 軸と上下に 2 つの正の y 軸を持つ棒グラフを作成する必要があります。SASのバタフライ プロットのように見えるはずですが、x 軸と y 軸が転置されています。私のデータはオスとメスの魚の長さです。

サンプルデータ：

length <- c(12,13,15,14,13,16,18) 
sex<-c("m","m","m","f","f","f","f") 
dat=data.frame(length,sex)

Answer 1

別の用語は、「反対側の横棒グラフ」です。(パッケージには複数の作成者がいます: plotrix ですが、Jim Lemon は最も生産的であり、パッケージのメンテナーであり、 の作成者でもありpyramid.plotます。)?pyramid.plot

install.packages("plotrix")
xy.pop<-c(3.2,3.5,3.6,3.6,3.5,3.5,3.9,3.7,3.9,3.5,3.2,2.8,2.2,1.8,
  1.5,1.3,0.7,0.4)
 xx.pop<-c(3.2,3.4,3.5,3.5,3.5,3.7,4,3.8,3.9,3.6,3.2,2.5,2,1.7,1.5,
  1.3,1,0.8)
 agelabels<-c("0-4","5-9","10-14","15-19","20-24","25-29","30-34",
  "35-39","40-44","45-49","50-54","55-59","60-64","65-69","70-74",
  "75-79","80-44","85+")
 mcol<-plotrix::color.gradient(c(0,0,0.5,1),c(0,0,0.5,1),c(1,1,0.5,1),18)
 fcol<-plotrix::color.gradient(c(1,1,0.5,1),c(0.5,0.5,0.5,1),c(0.5,0.5,0.5,1),18)
 # removed labels in center but you could run the example and see another approach
 par(mar=plotrix::pyramid.plot(xy.pop,xx.pop, labels=rep("",18),
  main="Australian population pyramid 2002",lxcol=mcol,rxcol=fcol,
  gap=0,show.values=TRUE))