小编Raj*_*jan的帖子

我想删除多余的空格,如果需要可以添加空格,并使用R将特殊字符后的每个单词的首字母大写

string <- "apple,banana, cat, doll and donkey;     fish,goat"

我希望输出为

Apple, Banana, Cat, Doll and donkey; Fish, Goat

我试过了

gsub("(^.|,.|;.)", "\\U\\1", string, perl=T, useBytes = F)

它没用.请帮忙

我试图在页面底部和中心的闪亮应用程序仪表板中插入页脚.但它正在身体的中心.此外,我无法将其放在页面的底部

这是我的代码:

library(shiny)
library(shinydashboard)
library(DT)
library(ggvis)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard"),
  dashboardSidebar(sidebarMenu(
    menuItem("Instructions", tabName = "genIns", icon = icon("info-circle")),
    menuItem("Data", tabName = "data", icon = icon("table"))

  )),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "genIns",
              fluidPage(
                titlePanel("General Instruction will go here"))
      ),
      # Second tab content
      tabItem(tabName = "data",
              sliderInput("bins",
                          "Number of bins:",
                          min = 1,
                          max = 50,
                          value = 30),
              plotOutput("distPlot")
              )

    ),
    tags$footer("My footer", align = "center")
  )
)

server.ui

shinyServer(function(input, output, session) { …

我有一个包含多个变量（大约50个）的大型数据框，第一列为as date，第二列为id。

我的数据大致如下所示：

df <- data.frame(date = c("01-04-2001 00:00","01-04-2001 00:00","01-04-2001 00:00",
                      "01-05-2001 00:00","01-05-2001 00:00","01-05-2001 00:00",
                      "01-06-2001 00:00","01-06-2001 00:00","01-06-2001 00:00",
                      "01-07-2001 00:00","01-07-2001 00:00","01-07-2001 00:00"), 
             id = c(1,2,3,1,2,3,1,2,3,1,2,3), a = c(1,2,3,4,5,6,7,8,9,10,11,12), 
             b = c(2,2.5,3,3.2,4,4.6,5,5.6,8,8.9,10,10.6))

我想要所有三个id的时间序列图分别在同一变量图中a和b在不同图中。

我试过了，ggplot 但是没有用。请帮我

我有一个很大的数据集（超过2000行和2000个变量），缺少很多值。我正在使用mnimputR的mtsdi包的功能来估算所有缺少的值。这是我的代码

formula = data
imput_out <- mnimput(formula,data, by = NULL, log = FALSE, log.offset = 1,
                 eps = 1e-3, maxit = 1e2, ts = TRUE, method = "arima", ar.control = list(order = c(1,1,1), period = 4,  f.eps = 1e-6, f.maxit = 1e3, ga.bf.eps = 1e-6,verbose = TRUE, digits = getOption("digits")))

但是我遇到一个错误

Error in o[1:3, j] : incorrect number of dimensions

请帮帮我。

我制作了一个闪亮的应用程序，我想在其中上传并在它旁边显示它。因为我的数据会很大，所以我让它可以滚动并将它放在一个盒子里。

现在我只想在加载数据时显示该框。

我尝试了条件面板，但没有用。

这是代码

用户界面

library(shiny)
library(shinydashboard)
library(DT)
library(ggvis)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard"),
  dashboardSidebar(sidebarMenu(

    menuItem("Data", tabName = "uploadData", icon = icon("table"))

  )),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "gebIns"
      ),

      # Second tab content
      tabItem(tabName = "uploadData",
              fluidPage(
                fluidRow(
                  column(3,titlePanel("Upload Your Data"),
                         fileInput('file1', 'Choose CSV File',
                                   accept=c('text/csv', 
                                            'text/comma-separated-values,text/plain', 
                                            '.csv')),
                         tags$hr(),
                         checkboxInput('header', 'Header', TRUE),
                         fluidRow(column(6,
                                         radioButtons('sep', 'Separator',
                                                      c(Comma=',',
                                                        Semicolon=';',
                                                        Tab='\t'),
                                                      ',')),
                                  column(6,
                                         radioButtons('quote', 'Quote',
                                                      c(None='',
                                                        'Double Quote'='"',
                                                        'Single Quote'="'"),
                                                      '"'))),
                         selectInput('y', 'Y Variable', '---'),
                         numericInput('noOfVar', 'Number …