ggplotly / plotly R不适用于ggplot对象中每个轴的整数值

编程问答 2022-08-12

问题描述

我试图在Rshiny中生成一个绘图图，必须生成ggplot2然后再转换为plotly，因为plotly本身不提供像ggplot一样的facet_wrap格式。

事实证明，ggplotly自动选择ggplot2对象没有的负数和小数点。我希望ggplotly生成与ggplot2对象完全相同的输出，没有小数点和负轴。

基本上，对于仅具有一个（0,0）点的所有图，我只想显示值0，获取非负数的乘积，并且在每个轴上仅保留0。

有人可以帮忙吗？非常感谢！

示例代码：

lab <- tibble(
  Group = c(rep('Group 1',4),rep('Group 2',rep('Group 3',rep('Group 4',4)),Grade = c(rep(0,16)),Baseline = c(rep(0,Visit = c(rep(seq(1,4))
)

g <- lab %>%
  group_by(Visit) %>%
  ggplot(aes(y=Grade,x=Baseline)) +
  geom_point(aes(color=Group),alpha=0.9) +
  scale_x_continuous("Baseline",limits = c(0,max(lab$Baseline)),breaks = unique(lab$Baseline)) +
  scale_y_continuous("Post Baseline",max(lab$Grade)),breaks = unique(lab$Baseline)) +
  labs(title = "ggplot") +
  facet_wrap(~Visit,scales = "free") +
  theme(legend.title = element_blank())

g1 <- ggplotly(g) %>% layout(title = 'ggplotly')

ggplot： enter image description here ggplotly： enter image description here

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2ggplotlyplotlyrr