我試圖在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)
)
uj5u.com熱心網友回復：
正如其他人在評論中提到的，目前還不清楚您到底在尋找什么，但您可以做這樣的事情（正如@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))
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/394495.html
下一篇：按組自定義ggplot圖例