我生成了兩筆數據,以因應您的資料,並分別執行了縱軸為頻數及縱軸為百分比的堆疊直方圖。代碼如下:
性別=sample(c("m","f"),size=50,replace=T,prob=c(0.4,0.6))
消費上限=sample(c(300,600,900),size=50,replace=T)

data=cbind("性別"=性別,"消費上限"=消費上限);data
counts1=table(data[,"性別"],data[,"消費上限"]);counts1
counts2=prop.table(counts1);counts2

par(mfrow=c(1,2))
barplot(counts1,xlab="消費上限",ylab="性別",col=c("green","red"))
barplot(counts2,xlab="消費上限",ylab="性別",col=c("green","red"))