我有以下數(shù)據(jù)框： Catergory Reason Species1 Decline Genuine 242 Improved Genuine 163 Improved Misclassified 854 Decline Misclassified 415 Decline Taxonomic 26 Improved Taxonomic 77 Decline Unclear 418 Improved Unclear 117我正在嘗試制作分組的條形圖，將種類作為高度，然后將2種顏色用于類別。我會(huì)發(fā)布一張我所擁有的圖像，但是我沒(méi)有足夠的聲譽(yù)點(diǎn)...但這是我的代碼：Reasonstats<-read.csv("bothstats.csv")Reasonstats2<-as.matrix(Reasonstats[,3])barplot((Reasonstats2),beside=T,col=c("darkblue","red"),ylab="number of species",names.arg=Reasonstats$Reason, cex.names=0.8,las=2,space=c(0,100),ylim=c(0,120))box(bty="l")現(xiàn)在，我想要的是不必兩次標(biāo)記兩個(gè)小節(jié)并將它們分組在一起，我嘗試將空間值更改為各種事物，并且似乎沒(méi)有將小節(jié)分開(kāi)。誰(shuí)能告訴我我在做什么錯(cuò)？
3 回答
蝴蝶刀刀
TA貢獻(xiàn)1801條經(jīng)驗(yàn) 獲得超8個(gè)贊
使用ggplot2：
library(ggplot2)
Animals <- read.table(
header=TRUE, text='Category Reason Species
1 Decline Genuine 24
2 Improved Genuine 16
3 Improved Misclassified 85
4 Decline Misclassified 41
5 Decline Taxonomic 2
6 Improved Taxonomic 7
7 Decline Unclear 41
8 Improved Unclear 117')
ggplot(Animals, aes(factor(Reason), Species, fill = Category)) +
geom_bar(stat="identity", position = "dodge") +
scale_fill_brewer(palette = "Set1")
動(dòng)漫人物
TA貢獻(xiàn)1815條經(jīng)驗(yàn) 獲得超10個(gè)贊
有多種方法可以在R中進(jìn)行繪圖。lattice是其中之一，并且始終是合理的解決方案，對(duì)@agstudy +1。如果要在基本圖形中執(zhí)行此操作，則可以嘗試以下操作：
Reasonstats <- read.table(text="Category Reason Species
Decline Genuine 24
Improved Genuine 16
Improved Misclassified 85
Decline Misclassified 41
Decline Taxonomic 2
Improved Taxonomic 7
Decline Unclear 41
Improved Unclear 117", header=T)
ReasonstatsDec <- Reasonstats[which(Reasonstats$Category=="Decline"),]
ReasonstatsImp <- Reasonstats[which(Reasonstats$Category=="Improved"),]
Reasonstats3 <- cbind(ReasonstatsImp[,3], ReasonstatsDec[,3])
colnames(Reasonstats3) <- c("Improved", "Decline")
rownames(Reasonstats3) <- ReasonstatsImp$Reason
windows()
barplot(t(Reasonstats3), beside=TRUE, ylab="number of species",
cex.names=0.8, las=2, ylim=c(0,120), col=c("darkblue","red"))
box(bty="l")
下面是我所做的：我創(chuàng)建了一個(gè)矩陣具有兩列（因?yàn)槟愕臄?shù)據(jù)均列）其中列是種計(jì)數(shù)Decline和Improved。然后，我將這些類別作為列名。我還給了Reasons行名。該barplot()函數(shù)可以在此矩陣上運(yùn)行，但希望數(shù)據(jù)以行而不是列的形式存在，因此我將其轉(zhuǎn)置為矩陣。最后，我刪除了一些barplot()不再需要的函數(shù)
- 3 回答
- 0 關(guān)注
- 981 瀏覽
添加回答
舉報(bào)
0/150
提交
取消