小编tbr*_*ley的帖子

我正在尝试为闪亮的应用程序创建一个情节图.我遇到了某些刻面图的布局问题.每当有四个面并且它们处于2x2网格中时,即使数据在ggplot图中,左下方面也不显示任何数据.当3x2网格中有6个面,左下角再次被丢弃时,也会发生这种情况.plotly ggplot示例页面上的示例显示了几个带有2x2网格并显示数据的示例.我不确定是什么问题.任何帮助深表感谢.

码:

library(ggplot2)
library(dplyr)
library(plotly)

data %>%
  filter(!is.na(result)) %>%
  ggplot(aes(date_time, result)) +
  facet_wrap(~group, scales = "free_y") +
  geom_point() +
  geom_line()


ggplotly()

ggplot 输出:

数据:

data <- structure(list(group = c("w", "w", "w", "w", "w", "w", "w", 
                                 "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", 
                                 "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", "w", 
                                 "y", "y", "y", "y", "y", "y", "y", "y", …

我试图在我闪亮的应用程序中使用plotly交互式视觉效果.但是,在尝试向图表添加自定义工具提示时遇到问题.如果我设置tooltip参数ggplotly()然后geom_line()我的输出中忽略了我的工具提示工作.

这是一个MRE:

library(shiny)
library(ggplot2)
library(plotly)
library(tidyquant) #only using the palette_dark() function
library(magrittr)

graph <- data %>%
  ggplot(aes(date, result, text = paste0("Site: ", site, "\n", 
                                     "Quarter: ", quarter, "\n", 
                                     "Year: ", year, "\n", 
                                     "Result: ", result))) +
  facet_wrap(~site) +
  geom_point(color = palette_dark()[1]) +
  geom_line(color = palette_dark()[1]) +
  theme_bw() 

 ggplotly(graph, 
          tooltip = "text")

这给了我这个:

如果我移动data =,并aes()呼吁从ggplot调用个人geom当时的线条仍然没有显示:

graph <- ggplot() +
  facet_wrap(~site) +
  geom_point(data = data, 
             aes(date, result, 
                 text …

是否可以在一张Excel工作表中编写多个表？从我的尝试中，我看到只有最后一个对象正在写入文件。可能是我每次都覆盖文件。所以我想知道如何修改代码以将两个表写在同一张纸上？谢谢

data.sets <- ls("package:datasets")[c(5,7)]# list of data set names
foonames <- paste0("foo", seq_along(data.sets))
count <- length(data.sets)  
my.list <- list() 
for (i in 1:count) my.list[[foonames[i]]] <- get(data.sets[[i]])
lapply(my.list, dim)

filen<-sprintf('H:\\11_Analysis\\01_Eye Study\\Output\\Eyestudy1_%s.xlsx',
               Sys.Date());

library(openxlsx)
options("openxlsx.dateFormat" = "yyyy-mm-dd")

wb<-write.xlsx(my.list$foo1, filen, 
               startCol =2, startRow = 1, 
               asTable = T, withFilter = T, 
               colWidths="auto")

wb<-write.xlsx(my.list$foo1, filen, 
               startCol =2, startRow = 15, 
               asTable = T, withFilter = T, 
               colWidths="auto")