时间戳

首页 > 解决方案 > 从 ggplot 对象转换为 plotly 失败

r - 从 ggplot 对象转换为 plotly 失败

问题描述

我刚刚建造了一个新的玻璃容器，我正在尝试随着时间的推移监测湿度水平，以确保它设置为最佳植物生长，我想我会使用 R 来做到这一点。我正在使用 POSIXct 记录日期/时间湿度测量值，然后将其记录到 ggplot 中，然后我尝试将其变成一个绘图对象；不幸的是，这最后一步不起作用。我不确定是什么原因造成的，因为我对情节的经验很少。这是我的代码；如果它是凌乱/不符合标准，我很抱歉，我a）累了，b）一个学生，所以任何提示也将受到欢迎！

当注释掉情节线时，我得到了这个（这就是我想要的）：

输出图

如果我可以从某个时间将日期标签“锚定”一次，我也希望每 6 小时一次 - 使用 scale_x_datetime 限制/中断因测量次数而异，我想在 00:00、06:00 休息一下，每天中午 12:00 和 18:00。我怎样才能做到这一点？

library(ggplot2)
library(lubridate)
library(scales)
library(gridExtra)
library(plotly)
library(hrbrthemes)

measurement.time = as.POSIXct(c("2020-08-23 21:45 GMT", "2020-08-23 22:45 GMT"), tz = 'Europe/London', format = "%Y-%m-%d %H:%M")

humidity = c(99,95)

data.forplot = data.frame(measurement.time, humidity)

Sys.setenv(TZ='Europe/London')

viv.plot = ggplot(data.forplot, aes(x = measurement.time, y = humidity)) +
  geom_point() +
  geom_line(alpha = 0.3) +
  ylab("Humidity (%)") +
  scale_y_continuous(limit=c(0,100),oob=squish) +
  scale_x_datetime(name = "Date", date_labels = "%B %d %H:%M") +
  ggtitle(~""*underline(Vivarium~Humidity~Levels)) +
  theme(plot.title = element_text(hjust=0.5, size =18 )) +
  geom_area(fill="#69b3a2", alpha=0.5)

viv.plot = ggplotly(viv.plot)

print(viv.plot)

标签： rggplot2plotlyggplotly

解决方案

以下代码片段适用于 plotly，不幸的是标题没有下划线。

measurement.time = as.POSIXct(c("2020-08-23 21:45 GMT", "2020-08-23 22:45 GMT"), tz = 'Europe/London', format = "%Y-%m-%d %H:%M")
humidity = c(99,95)
data.forplot = data.frame(measurement.time, humidity)

viv.plot = ggplot(data.forplot, aes(x = measurement.time, y = humidity)) +
   geom_point() +
   geom_line(alpha = 0.3) +
   ylab("Humidity") +
   scale_y_continuous(limit=c(0,100),oob=squish) +
   scale_x_datetime(name = "Date", date_labels = "%B %d %H:%M") +
   ggtitle("Vivarium Humidity Levels") +                            #Works
#   ggtitle(expression(underline("Vivarium Humidity Levels"))) +    #does not work with plotly, works with ggplot
   theme(plot.title = element_text(hjust=0.5, size =18, face="bold" )) +
   geom_area(fill="#69b3a2", alpha=0.5)

print(ggplotly(viv.plot))

Plotly 似乎不理解“表达式”语法，因此导致了问题。希望这对您的项目来说已经足够好了。

推荐阅读