小编use*_*203的帖子

尝试使用以下功能创建用于绘制逻辑回归的ui.r文件:

选择输入(y变量:分解,x变量:温度,湿度,小时)和可变范围滑块.

我收到以下错误: Error in tag("div", list(...)) : argument is missing, with no default

require(shiny)    
shinyUI(pageWithSidebar(
  headerPanel("Home Automation Data Model - TV"),      
  sidebarPanel(
    wellPanel(
      selectInput(
        inputId = "x_var",
        label = "X variable",
        choices = c(
          "Temperature (Celcius)" = "Temp",
          "Humidity (Percentage)" = "Hum",
          "Hours" = "Hrs"
        ),
        selected = "Temperature"
      ),

      uiOutput("x_range_slider")
    ),      

    wellPanel(
      selectInput(
        inputId = "y_var",
        label = "Y variable",
        choices = c("Breakdowns (Yes/No)" = "y"),
      ),

      uiOutput("y_range_slider")
    ),        

    wellPanel(
      p(strong("Model predictions")),
      checkboxInput(inputId = "mod_logistic",    label = "Logistic …

我想为n行的数据框子集,这些行按变量分组,并按另一个变量降序排序.这将是一个明确的例子:

    d1 <- data.frame(Gender = c("M", "M", "F", "F", "M", "M", "F", 
  "F"), Age = c(15, 38, 17, 35, 26, 24, 20, 26))

我希望得到2行,每行按年龄排序,每个性别.所需的输出是:

Gender  Age  
F   35  
F   26  
M   38  
M   26  

我在这里寻找订单,排序和其他解决方案,但找不到合适的解决方案来解决这个问题.我感谢您的帮助.

如何计算散点图上回归线上方和下方的点数？

data = read.csv("info.csv")
par(pty = "s")
plot(data$col1, data$col2, xlab = "xaxis", ylab = "yaxis", xlim = c(0, 
  1), cex.lab = 1.5, cex.axis = 1.5, ylim = c(0, 1), col.lab = "red", 
  col = "blue", pch = 19)
abline(a = -1.21, b = 2.21)

我正在尝试使用 R 中的 HoltWinters 函数进行大量时间序列预测。为此，我使用 for 循环并在内部调用该函数，并将预测保存在 data.frame 中。

问题是 HoltWinters 函数的一些结果给出了错误，特别是优化错误：

Error en HoltWinters(TS[[i]]) : optimization failure

这个错误打破了循环。

所以我需要的是“尝试”之类的东西：如果它可以使 HoltWinters 函数，则保存预测，否则保存错误。

下面的代码复制了这个问题：

data <- list()
data[[1]] <- rnorm(36)
data[[2]] <-
  c(
    24,24,28,24,28,22,18,20,19,22,28,28,28,26,24,
    20,24,20,18,17,21,21,21,28,26,32,26,22,20,20,
    20,22,24,24,20,26
  )
data[[3]] <- rnorm(36)

TS <- list()
Outputs <- list()

for (i in 1:3) {
  TS[[i]] <- ts(data[[i]], start = 1, frequency = 12)
  Function <- HoltWinters(TS[[i]])
  TSpredict <- predict(Function, n.ahead = 1)[1]
  Outputs[[i]] <-
    data.frame(LastReal = TS[[i]][length(TS[[i]])], Forecast = TSpredict)
}

其中 i <- …

我通常会创建一个这样的粉丝图:

n.ahead <- 10
m <- matrix(,nrow = 5000,ncol = 10)

library(fanplot)
m[,1] <- rnorm(5000,0.01,sd = 0.005)
m[,2] <- rnorm(5000,0.02,0.006)
m[,3] <- rnorm(5000,0.03,0.008)
m[,4] <- rnorm(5000,0.04,0.01)
m[,5] <- rnorm(5000,0.06,0.013)
m[,6] <- rnorm(5000,0.1,0.015)
m[,7] <- rnorm(5000,0.11,0.02)
m[,8] <- rnorm(5000,0.13,0.025)
m[,9] <- rnorm(5000,0.14,0.05)
m[,10] <- rnorm(5000,0.18,0.07)

n.ahead <- 10
fancol <- colorRampPalette(c('black', 'white'))
plot(
  NULL, type = 'n', lwd = 3, col = 'black',
  xlim = c(0, n.ahead), ylab = 'Y', ylim = c(0,max(m)), xlab = 'Year',
  las = 1, xaxt = …

我正在为我的输入类型文本分配 tabindex，并且没有禁用/隐藏。以下是我尝试过的，并且有效。但是，索引的顺序在表中是水平分配的。我需要按列而不是水平的 tabindex 的顺序。任何建议如何实现这一目标？我希望顺序如下此 Q 是此输入键的后续操作以跟随 tabindex（在输入键更改为选项卡的情况下）。

   col1 col2 col3
    1      3    7
    2      4    8
           5    9 
           6   10  

(":input:not([disabled]):not(:hidden)").not($(":submit")).not($(":reset")).each(function (i) { $(this).attr('tabindex', i + 1); })

我对 R 和一般编程相当陌生，并且已经在以下几个小时内苦苦挣扎。

我正在尝试创建一个函数，该函数将 df 和列名作为变量，根据提供的列名过滤表并打印输出。

example_function <- function(df=df, col=col){
         a <- df[col == 100,]
         b <- filter(df, col == 100)
         print(a)
         print(b)
}

使用example_function(df=example_df, col='percentage')不起作用，两个变量仅返回列名，但不返回数据行（尽管有值== 100）。

使用example_function(df=df, col=percentage)，因此百分比在这里没有用引号引起来，我得到：

[.data.frame(df, col == 100,)中的错误：未找到对象“百分比”

然而，当我运行时example_function(df=example_df, col=example_df$percentage)，我得到了正确的结果，我的数据帧按预期返回，只有那些等于example_df$percentage100 的行。

我真的希望能够将 df 作为一个变量传递，将列作为另一个变量传递，而不必example_df$percentage每次都键入，因为我希望能够为许多不同的数据帧重复使用该函数，并且键入看起来多余的内容。

基于此，我然后修改了该函数，认为我可以df$col在该函数中使用它，它将评估example_df$percentage并像上面一样工作：

example_function <- function(df=df, col=col){
     a <- df[df$col == 100,]
     b <- filter(df, df$col == 100)
     print(a)
     print(b)
}

但现在我在使用example_function(df=example_df, col=percentage)或传递时遇到另一个错误col='percentage'：

filter_impl(.data, …

我想创建一个带有3个复选框的Shiny UI供用户选择.但是,如果没有选中任何框,我想提示用户输入错误消息.

我已经尝试使用validate函数来解决这个问题(如下所示),但它目前无法正常工作.任何人都可以指出我的代码有什么问题,并告诉我如何解决它？

shinyUI(fluidPage(sidebarLayout(
  sidebarPanel(checkboxGroupInput(
    "variable", "Select An Option:",
    c(
      "One",
      "Two",
      "Three"
    )
  )),

  mainPanel(textOutput("text"))
)))

shinyServer(function(input, output) {
  text.data <- reactive({
    validate(need(!is.null(input$variable),
  "Please select an option"))
    print(input$variable)
  })
  output$text <- renderPrint({
    print(text.data())
  })
})

编辑

我已经包含了以下结果的图像:

• 如果未选择任何内容,则消息显示为"NULL NULL"而不是"Please select an option"

• 选择框时,将显示以下错误消息:"错误:is.character(txt)不为TRUE"而不是所选输入的打印输出.

我有以下代码用于生成 navbarPage 的闪亮应用程序

library(shiny)
library(shinythemes)

ui <- navbarPage(
  title = "Report", theme = shinytheme("cerulean"),
  tabPanel("About"),
  tabPanel(
    "Plots",
    fluidPage(
      tabsetPanel(
        type = "pills",
        tabPanel("A"),
        tabPanel(
          "B",
          sidebarLayout(
            sidebarPanel(h4("Checkbox"),
              checkboxInput("total", label = "total"),
              uiOutput("conditionalInput"),
              width = 3
            ),
            mainPanel(
              tabsetPanel(
                tabPanel("a"),
                tabPanel("b"),
                tabPanel("c"),
                tabPanel("d"),
                tabPanel("e")
              )
            )
          )
        )
      )
    )
  )
)



server <- function(input, output) {
  output$conditionalInput <- renderUI({
    if (input$total == FALSE) {
      checkboxGroupInput("verticais",
        label = "",
        choices = list(
          "1.1" = 1,
          "1.2" = 2,
          "1.3" = 3, …

我正在尝试将一个字母的AA变体替换为3个字母的代码（以便于阅读）。一切正常，但几乎没有错误。以下是我的注释代码。谢谢

x <- c("p.G12C","p.F121S","p.P124S","p.P124L","p.E13D",
        "p.E203K","p.Q209P","p.Q209P","p.Q209L")

aa3 <- c("Ala", "Arg", "Asn", "Asp", "Cys", "Glu", "Gln", "Gly", "His",
           "Ile", "Leu", "Lys", "Met", "Phe", "Pro", "Ser", "Thr", "Trp",
           "Tyr", "Val")
aa1 <- c("A", "R", "N", "D", "C", "E", "Q", "G", "H", "I", "L", "K",
           "M", "F", "P", "S", "T", "W", "Y", "V")

for (i in 1:length(aa1))
{
  xy <- gsub(aa1[i],aa3[i],x,ignore.case = F)
}

输出量

# Note that E, F and Q have unusual 3 letter replacement. 
  I could not figure out what is …