ydeng/bch441-work-abc-units
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update plot and legend layout

Browse Source
This commit is contained in:
hyginn 2020-09-21 15:06:27 +10:00
parent 2432d64f18
commit 12c11a6351
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
BIN-MYSPE.R
View File

@ -124,21 +124,25 @@ Nfng <- nrow(fungiDat) - Nord - Ngen - Nspc
# proportions # proportions
pCol <- c("#ed394e", "#ff9582", "#ffd5c4", "#f2f2f0") pCol <- c("#ed394e", "#ff9582", "#ffd5c4", "#f2f2f0")
oPar <- par(mar = c(1.1, 0, 1.1, 1))
pie(c(Nspc, Ngen, Nord, Nfng), pie(c(Nspc, Ngen, Nord, Nfng),
labels = "", labels = "",
radius = 1, radius = 1,
main = "MYSPE in genome-sequenced fungi", main = "MYSPE in genome-sequenced fungi",
sub = MYSPE, sub = MYSPE,
lty = 0, # no borders for wedges
col = pCol, col = pCol,
clockwise = TRUE, clockwise = TRUE,
init.angle = 90) init.angle = 90)
legend(x = 1.3, y = 0.8, # position legend(x = 1.05, y = 0.8, # position
legend = c("Species", "Genus", "Order", "Fungi"), legend = c("Species", "Genus", "Order", "Fungi"),
y.intersp = 1.5, # line spacing for labels y.intersp = 2, # line spacing for labels
cex = 0.9, # character size for labels cex = 0.8, # character size for labels
bty = "n", # "no" box around the legend bty = "n", # "no" box around the legend
pt.cex = 2, # size of colour boxes pt.cex = 2, # size of colour boxes
pch = 15, pch = 15,
col = pCol) col = pCol)
par(oPar)
# [END] # [END]