小编Dav*_*Mas的帖子

我在理解会话如何在闪亮服务器中工作时遇到了一些麻烦.我假设当用户关闭浏览器时会话结束,但是,通过使用print(session$isClosed())服务器函数我FALSE在开始时得到响应(那么没关系)然后当我关闭浏览器时没有任何反应.谁能给我一些关于闪亮服务器会话的线索？我想存储特定于会话的图,让用户只下载他们的图.

嗨我通常使用如下代码来重新排序ggplot中的条形图或其他类型的图形.

正常情节(无序)

library(tidyverse)
iris.tr <-iris %>% group_by(Species) %>% mutate(mSW = mean(Sepal.Width)) %>%
  select(mSW,Species) %>% 
  distinct()
ggplot(iris.tr,aes(x = Species,y = mSW, color = Species)) +
  geom_point(stat = "identity")

订购因子+有序情节

iris.tr$Species <- factor(iris.tr$Species,
                          levels = iris.tr[order(iris.tr$mSW),]$Species,
                          ordered = TRUE)
ggplot(iris.tr,aes(x = Species,y = mSW, color = Species)) + 
  geom_point(stat = "identity")

因素线对我来说非常不愉快,我想知道为什么arrange()或其他一些功能无法简化这一点.我错过了什么？

注意:

这不起作用,但我想知道tidyverse中是否存在这样的东西.

iris.tr <-iris %>% group_by(Species) %>% mutate(mSW = mean(Sepal.Width)) %>%
  select(mSW,Species) %>% 
  distinct() %>% 
  arrange(mSW)
ggplot(iris.tr,aes(x = Species,y = mSW, color = Species)) + 
  geom_point(stat = "identity")

好的,所以我知道我可以这样做,

mtcars %>% 
group_by(cyl) %>% 
sample_n(2)

这会给我,

Source: local data frame [6 x 11]
Groups: cyl [3]

 mpg   cyl  disp    hp  drat    wt  qsec    vs    am
<dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1  21.4     4 121.0   109  4.11 2.780 18.60     1     1
2  33.9     4  71.1    65  4.22 1.835 19.90     1     1
3  18.1     6 225.0   105  2.76 3.460 20.22     1     0
4  21.0     6 160.0   110  3.90 2.875 17.02     0     1
5  15.2     8 304.0   150 …