小编The*_*aya的帖子

我在面板中有一些图。我想将它们更改为tabsetpanel窗口宽度较小时。有什么方法可以确定浏览器的窗口宽度。比如下面的例子，当窗口宽度足够大时，如何uiOutput从切换plotPanel1到。plotPanel2

library(ggplot2)

ui <- fluidPage(
  title = "TestApp",
  h1("Test Application"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins", "Bins", 2, 20, 1, value = 10)
    ),
    mainPanel(
      fluidRow(
        uiOutput("plotPanel1")
      )
    )
  )
)
server <- function(input, output, session){
  output$plot1 <- renderPlot({
    mdl <- lm(mpg ~ ., data = mtcars)
    ggplot(mdl, aes(.resid)) + geom_histogram(bins = input$bins)
  }, res = 110)
  output$plot2 <- renderPlot({
    mdl <- lm(UrbanPop ~ ., data = USArrests)
    ggplot(mdl, aes(.resid)) + geom_histogram(bins = input$bins)
  }, res …

我正在准备课程的教程,我想将错误的颜色更改为红色.我使用BookDown和gitbook作为输出格式.但我发现该选项class.output不起作用.我想在输出中为我得到的错误消息添加一个类.我怎样才能做到这一点？您可以将此作为示例:

---
title: "Test Book"
author: "therimalaya"
site: bookdown::bookdown_site
output: bookdown::gitbook
---

# Hello World

```{r, error = TRUE, class.output="red"}
rnorm(-10)
```

如果没有错误,这可以工作.

我有一张这样的桌子,

> head(dt2)
  Weight Height   Fitted interval limit    value
1   65.6  174.0 71.91200     pred   lwr 53.73165
2   80.7  193.5 91.63237     pred   lwr 73.33198
3   72.6  186.5 84.55326     pred   lwr 66.31751
4   78.8  187.2 85.26117     pred   lwr 67.02004
5   74.8  181.5 79.49675     pred   lwr 61.29244
6   86.4  184.0 82.02501     pred   lwr 63.80652

我希望它有这样的,

> head(reshape2::dcast(dt2, 
         Weight + Height + Fitted + interval ~ limit, 
         fun.aggregate = mean))
  Weight Height   Fitted interval      lwr      upr
1   42.0  153.4 51.07920     conf 49.15463 53.00376
2 …

我想在GLM上添加拟合函数ggplot.默认情况下,它会自动创建带有交互的图.我想知道,如果我能从模型中绘制拟合函数而不进行交互.例如,

dta <- read.csv("http://www.ats.ucla.edu/stat/data/poisson_sim.csv")
dta <- within(dta, {
  prog <- factor(prog, levels=1:3, labels=c("General", "Academic", "Vocational"))
  id <- factor(id)
})

plt <- ggplot(dta, aes(math, num_awards, col = prog)) + 
    geom_point(size = 2) + 
    geom_smooth(method = "glm", , se = F, 
        method.args = list(family = "poisson"))

print(plt)

给出了相互作用的情节,

但是,我想要模型中的情节,

`num_awards` = ß0 + ß1*`math` + ß2*`prog` + error

我试着这样做,

mod <- glm(num_awards ~ math + prog, data = dta, family = "poisson")

fun.gen <- function(awd) exp(mod$coef[1] + mod$coef[2] * awd) …

欧洲作家的许多产品都在其名称中的Unicode字符如Å,Æ,ø和Ä.Å -> A, Æ -> A, Ä -> A在创建R-package时,他们如何使用这些Unicode字符而不是英文字母()的某些转换版本.简而言之,在创建R-Package时,如何在author/creator/maintainer名称中使用Unicode字符.

我的文档中有很多块，其中一些块并排生成 2 个图，一些并排生成 3 个图，其他一些仅用于显示结果（其中一些甚至回显代码）。我可以按如下方式设置文档的全局knitr选项；

{r setup, include = FALSE, cache = FALSE}
    knitr::opts_chunk$set(
      comment = NA,
      fig.width = 7,
      out.width = 50%,
      warning = FALSE
    )

但我想设置多组此类全局选项，以便一些针对并排双数字的数字块，一些针对结果输出。

由于选项只是一个列表，我可以创建各种选项的多个列表，但我想知道如何将这些选项包含在这些单独的块中？

我有以下数据:

numbers <- structure(list(density = c(1L, 4L, 10L, 22L, 55L, 121L, 210L, 
444L), females = c(1L, 3L, 7L, 18L, 22L, 41L, 52L, 79L), males = c(0L, 
1L, 3L, 4L, 33L, 80L, 158L, 365L), maleProp = c(0, 0.25, 0.3, 
0.181818181818182, 0.6, 0.661157024793388, 0.752380952380952, 
0.822072072072072), total = c(1L, 4L, 10L, 22L, 55L, 121L, 210L, 
444L)), .Names = c("density", "females", "males", "maleProp", 
"total"), row.names = c(NA, -8L), class = "data.frame")

我希望glm用totalas 方法有一个平滑的线weight.我试过了,

ggplot(numbers, aes(density, maleProp)) + geom_point() …

我想在我的情节和遇到的那几个改进alpha的geom_segment工作不正常。对于最小工作示例，请检查：

ggplot(mtcars, aes(hp, mpg)) + 
  geom_point() + 
  geom_segment(aes(x = 100, xend = 200, y = 20, yend = 20), 
  inherit.aes = FALSE, 
  size = 10, 
  alpha = 0.5, 
  color = "blue")

但是，如果您将 alpha 更改为非常低的值，例如 0.005，则 0.001 似乎有效。您只能看到 0.05 到 0.001 之间的一些效果。

alpha 值不是应该在 0 和 1 之间以线性方式变化还是我理解不正确？

我想要rbind两个数据帧,在结果data.frame中有一个额外的列,指示哪个行来自哪个data.frame.例如,

top <- mtcars[1:16, ]
bottom <- mtcars[17:32, ]

rbind(top, bottom)

这会给我,

                     mpg cyl  disp  hp drat    wt  qsec vs am gear carb
Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0    3 …

在以下两种情况下使用一种比另一种有什么优点/缺点？Case-I 将其输出作为环境返回，Case-II 将其输出作为列表返回。

案例一：

function(x) {
  ret <- new.env()
  ret$x <- x
  ret$y <- x^2
  return(ret)
}

案例二：

function(x) {
  ret <- list()
  ret$x <- x
  ret$y <- x^2
  return(ret)
}

我的代码中有以下代码test.Rmd。

---
title: "Test Application"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---

sidebar {.sidebar}
==========================

Controllers
-----------------------
```{r}
actionButton("clickMe", label = "Click Me", class = "btn btn-lg btn-primary")
```

Page1
========================

Page2
=======================

最初，我的应用程序位于第1页上。我想通过单击按钮将我的应用程序带至第2页clickMe。请在这件事上给予我帮助..！

我使用Dockerfile构建一个docker镜像.构建映像后,我对Dockerfile进行了一些基本的更改.是否可以仅使用其他更改重建相同的图像.因为创建图像需要很长时间,所以我不想完全构建它.提前致谢.

我有两个相同维度的矩阵,用NA和字符串填充.例如,

structure(c("Y1", "Y1", "Y1", NA, NA, NA, NA, NA, NA, NA, NA, 
NA, "Y1", "Y1", "Y1", "Y2", NA, "Y2", NA, NA, NA, NA, NA, NA, 
"Y1", "Y1", "Y1", "Y2", NA, "Y2", NA, NA, NA, NA, NA, NA, NA, 
NA, NA, "Y2", NA, "Y2", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "Y2", NA, "Y2", NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …