在R中绘制图的标度问题

Question

我试图在R中生成一个条形图，但是由于y轴值​​非常接近，所以在图中没有差别。

有人能帮我吗？

这是我用来生成图表的数据。

rede <- c("Wifi", "Wifi(AB)", "Wifi(AB) + 4G(AB)", "Wifi(AB) + 4G(B)", "4G(AB)")
disp <- c(0.9981663483026838, 0.9979983253954591, 0.9983305230561498, 0.9981898613052699, 0.9980460877265795)
down <- c(16.062788868489800, 17.534669535778500, 14.624618028127900, 15.85681496583588, 17.116271515163100)
dados <- data.frame("Ref" = rede, "Disponibilidade" = disp, "Downtime" = down)

​

ggplot(dados) +
aes(
x = Ref,
fill = Disponibilidade,
weight = Disponibilidade
) +
geom_bar(position = "fill") +
scale_fill_viridis_c(option = "plasma", direction = 1) +
labs(
x = "Redes",
y = "Valores",
title = "Gráfico Disponibilidade"
) +
theme_minimal() +
theme(
plot.title = element_text(size = 18L,
                      face = "bold",
                      hjust = 0.5)
)

​

​

Answer 1

正如其他人在评论中提到的，目前还不清楚您到底在寻找什么，但是您可以这样做(正如@JonathanV.Solórzano建议的使用coord_cartesian)。

library(ggplot2) 

ggplot(dados) +
  aes(
    x = Ref,
    y = Disponibilidade,
    fill = Disponibilidade,
    weight = Disponibilidade
  ) +
  geom_col() +
  scale_fill_viridis_c(option = "plasma", direction = 1) +
  coord_cartesian(ylim = c(min(dados$Disponibilidade), max(dados$Disponibilidade))) +
  labs(x = "Redes",
       y = "Valores",
       title = "Gráfico Disponibilidade") +
  theme_minimal() +
  theme(plot.title = element_text(size = 18L,
                                  face = "bold",
                                  hjust = 0.5))

输出

​

​

使用geom_bar替代(它产生与上面相同的输出)

ggplot(dados) +
  aes(
    x = Ref,
    fill = Disponibilidade,
    weight = Disponibilidade
  ) +
  geom_bar() +
  scale_fill_viridis_c(option = "plasma", direction = 1) +
  coord_cartesian(ylim = c(min(dados$Disponibilidade), max(dados$Disponibilidade))) +
  labs(x = "Redes",
       y = "Valores",
       title = "Gráfico Disponibilidade") +
  theme_minimal() +
  theme(plot.title = element_text(size = 18L,
                                  face = "bold",
                                  hjust = 0.5))