Как изменить пределы оси Y в десятичных точках в R?

Question

Я могу построить barplot в Excel с десятичными точками в пределах оси Y, как показано ниже.

Но я бы не сталвозможность изменить пределы оси Y в R.

Вот мой код в R.

par(mfrow=c(1, 1), mar=c(7, 4, 5, 6))
mydata <- data.frame(Algorithm1=c(95.85, 96.94), Algorithm2=c(96.04, 96.84), Algorithm3=c(95, 95.30))
barplot(as.matrix(mydata), main="Precision", ylim=range(0:100),  
        beside=T, col=c("red", "blue"), las=1, border = 0, cex.lab=1, cex.axis=1, font=1,col.axis="black", ylab = "Percentage",
        legend.text = c("X1",   "X2"),
        args.legend = list(x ='topright', bty='n', inset=c(-0.20,0)))

Спасибо взаранее за ваш ответ.

Answer 1

Установите предел для y и xpd = FALSE.

• FALSE: вся графика обрезается до области графика
• TRUE:все графики обрезаются до области рисунка
• NA: все графики обрезаются до области устройства

---

library(RColorBrewer)
color <- brewer.pal(3, "Set1")[2:1]
plot.new()
plot.window(xlim = c(0, 10), ylim = c(94, 97.5), yaxs = "i")
abline(h = seq(94, 97.5, 0.5), col = 8)
barplot(as.matrix(mydata), beside = T, col = color,
        border = NA, legend.text = c("X1",   "X2"),
        args.legend = list(x = 'topright', bty = "n"), xpd = F, add = T)

Answer 2

Вы также можете использовать ggplot2 и весы.

library(dplyr)
library(ggplot2)
library(scales)
mydata <- data.frame(Algorithm = rep(c('Algorithm1','Algorithm2','Algorithm3'), each=2),
                     variable_x = rep(c('X1','X2'),3), 
                     values=c(0.9585, 0.9694,0.9604, 0.9684, 0.95, 0.9530))

mydata %>% 
  ggplot(aes(x=Algorithm,y=values,fill=variable_x))+
  geom_bar(stat='identity', position='dodge')+
  scale_y_continuous(labels = scales::percent, limits = c(0.94,0.975), oob = rescale_none)+ 
  scale_fill_manual(values= c(X1='red',X2='blue'))

Answer 3

Вы можете сделать:

tickPoints <- 20 * (0:5)

par(mfrow = c(1, 1), mar = c(7, 4, 5, 6))
mydata <- data.frame(
  Algorithm1 = c(95.85, 96.94), 
  Algorithm2 = c(96.04, 96.84),
  Algorithm3 = c(95, 95.30)
)

barplot(
  as.matrix(mydata), main = "Precision", beside = T, col = c("red", "blue"),
  las = 1, border = 0, cex.lab = 1, cex.axis = 1, font = 1, col.axis = "black",
  ylab = "Percentage", legend.text = c("X1",   "X2"), 
  args.legend = list(x = 'topright', bty = 'n',inset = c(-0.20, 0)),
  axes = FALSE,
  ylim = range(tickPoints)
)

axis(side = 2, at = tickPoints, labels = sprintf("%0.1f", tickPoints))

Обратите внимание на axes = FALSE в вызове barplot