小编fir*_*o23的帖子

我有下面的数据框：

Val1<-c(0.5,0.7,0.8,0.9)
Val2<-c(0.5,0.7,0.8,0.9)
Val3<-c(0.5,0.7,0.8,0.9)
Val4<-c(0.5,0.7,0.8,0.9)
vales<-data.frame(Val1,Val2,Val3,Val4)
row.names(vales)<-c("asd","dasd","dfsdf","fdff")

我对其进行了正确处理，以便使用以下命令创建聚类散点图：

library(tidyverse)  # data manipulation
library(cluster)    # clustering algorithms
library(factoextra) # clustering algorithms & visualization
library(plotly)

cl<-scale(vales)
dist <- get_dist(cl)
k2 <- kmeans(cl, centers = 2, nstart = 25)

cl %>%
  as_tibble() %>%
  mutate(cluster = k2$cluster,
         state = row.names(vales))

p2<-fviz_cluster(k2, data = cl)
p2+geom_text(aes(label=""))

#or
ggplotly(p2+geom_text(aes(label="")))

我想删除点的标签，但我不明白为什么它们出现，而在下面的情况下却没有出现。

df <- USArrests
df <- na.omit(df)

df <- scale(df)
distance <- get_dist(df)

k2 <- kmeans(df, centers = 2, nstart = 25)
df %>%
  as_tibble() %>%
  mutate(cluster …

我下面有一个简单的闪亮应用程序，用户可以在其中使用这些小部件做出一些选择。是否可以保存和加载用户在 Shiny 应用程序中设置的所有设置，以便他可以在下次打开应用程序并从计算机上的某个位置加载这些相同的设置，然后导致应用程序更改其设置立即恢复到以前的状态吗？

#ui.r
navbarPage(
  "Application",
  tabPanel("General",
           sidebarLayout(

             sidebarPanel(
               uiOutput("tex1"),
               br(),
               uiOutput("num"),
               br(),

               uiOutput("num2")
              ),



             mainPanel(
               wellPanel(
                 h4("Format"),
                 fluidRow( # Width = sum of component columns
                   tags$style(type="text/css",
                              ".shiny-output-error { visibility: hidden; }",
                              ".shiny-output-error:before { visibility: hidden; }"
                   ),
                   column(3,
                          h5("Booklet ID"),
                          div(style="display: inline-block;vertical-align:top; width: 150px;",uiOutput("num3"))


                   )
                 )
                 )



             )
           )))





#server.r
library(shiny)


server <- function(input, output,session) {

  output$tex1<-renderUI({
    textInput("text", h4("Run Name") 
    )
  })
  output$num<-renderUI({
    numericInput("nm", 
                 h4("Items"), 
                 value = 50,min = 1)
  })
  output$num2<-renderUI({
    numericInput("nm2", 
                 h4("Dimensions"), 
                 value = 1,min = 0,max …

我使用下面的数据框：

Name <- c("DCH", "DCH", "DCH", "DGI", "DGI", "DGI", "LDP", "LDP", "LDP",
    "RH", "RH", "RH", "TC", "TC", "TC")
Class <- c("Class1", "Class2", "Overlap", "Class1", "Class2", "Overlap",
    "Class1", "Class2", "Overlap", "Class1", "Class2", "Overlap", "Class1", "Class2", "Overlap")
count <- c(2077, 1642, 460, 1971, 5708, 566, 2316, 810, 221, 2124, 3601,
    413, 2160, 1097, 377)
FinalDF <- data.frame(Name, Class, count)

为了创建以下ggplot。

和 ：

# Generate the horizontal stacked bar chart plot
stackedBarsDiagram <- function(data, numRows = 5, 
                               barColors = c('lemonchiffon', 'palegreen3', 'deepskyblue2'),
                               leftlabels …

我想问一下是否有办法在文件最终下载到我闪亮的应用程序之前显示加载消息。我的原始数据集很大，我想这就是延迟的原因。下面我附上一个玩具示例，以防有人可以对此应用重新使用的解决方案。

#ui.r
ui <- fluidPage(

  # App title ----
  titlePanel("Downloading Data"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: Choose dataset ----
      selectInput("dataset", "Choose a dataset:",
                  choices = c("rock", "pressure", "cars")),

      # Button
      downloadButton("downloadData", "Download")

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      tableOutput("table")

    )

  )
)
#server.r
server <- function(input, output) {

  # Reactive value for selected dataset ----
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" …

有没有办法添加selectinput()内部shinydashboardPlus()标题？我不想要 提供的下拉菜单功能shinydashboardPlus()。我想要这样的东西：

#app.r
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
#selectInput("variable", "Variable:",
 #           c("Cylinders" = "cyl",
  #            "Transmission" = "am",
   #           "Gears" = "gear"))
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
    ),
    rightsidebar = rightSidebar(),
    title = "DashboardPage"
  ),
  server = function(input, output) { }
)

有没有办法隐藏 DT::Datatable 的特定部分？我是说"Show Entries", "Search","Showing to of entries", "Previous" "Next"。我想隐藏其中一个的方法可以应用于其余的。

library(DT) 
datatable(
  mtcars, 
  options = 
    list(language = 
           list(paginate = 
                  list('next'="NEXT PAGE", 
                       previous="PREVIOUS PAGE"), 
                info = "These are entries _START_ to _END_ of _TOTAL_ total entries",
                lengthMenu = "Display _MENU_ entries",
                search = "Search box"
           )
    )
)

我想使用数据框创建一个新数据框，其中包含邮政编码、名称和名为计数的列，该列将包括每个邮政编码的名称计数。

Zip<-c("123245","12345","123245","123456","123456","12345")
Name<-c("Bob","Bob","Bob","Jack","Jack","Mary"),
df<-data.frame(Zip,Name,Name2)

library(dplyr)
df %>%
  group_by(Zip) %>%
  mutate(Name = cumsum(Name))

预期的

Zip Name Count
1 123245  Bob     2
2  12345  Bob     1
3  12345 Mary     1
4 123456 Jack     2

您好，我正在创建一个环境闪亮的应用程序，我想在其中使用传单地图创建一些基于 openair 包的简单绘图（https://rpubs.com/NateByers/Openair）。

Aq_measurements() 一般形式

AQ<- (aq_measurements(country = \xe2\x80\x9ccountry\xe2\x80\x9d, city = \xe2\x80\x9ccity\xe2\x80\x9d, location = \xe2\x80\x9clocation\xe2\x80\x9d, parameter = \xe2\x80\x9cpollutant choice\xe2\x80\x9d, date_from = \xe2\x80\x9cYYYdateY-MM-DD\xe2\x80\x9d, date_to = \xe2\x80\x9cYYYY-MM-DD\xe2\x80\x9d)。

位置数据框中可用的所有参数。

worldmet() 一般形式

met <- importNOAA(code = "12345-12345", year = YYYYY:YYYY)\n

NOAA 代码可在位置数据框中找到

下面我创建了一个初始数据框的示例：

location = c("100 ail","16th and Whitmore","40AB01 - ANTWERPEN") \nlastUpdated = c("2018-02-01 09:30:00", "2018-02-01 03:00:00", "2017-03-07 10:00:00") \nfirstUpdated = c("2015-09-01 00:00:00","2016-03-06 19:00:00","2016-11-22 15:00:00")\npm25=c("FALSE","FALSE","FALSE")\npm10=c("TRUE","FALSE","FALSE")\nno2=c("TRUE","FALSE","FALSE")\nlatitude=c(47.932907,41.322470,36.809700)\nlongitude=c(106.92139000,-95.93799000\n,-107.65170000)\n\ndf = data.frame(location, lastUpdated, firstUpdated,latitude,longitude,pm25,pm10,no2)\n

作为一般想法，我希望能够根据此数据框单击地图中的某个位置。然后我有 1selectInput()和 2 …

我想Species在光标悬停在数据点上时显示每个数据点，而不是x和y值。我使用iris数据集。另外，我希望能够单击一个数据点以使标签保持不变，并且在我选择图中的新位置时不会消失。（如果可能的话 ）。基本是标签。持久性问题是一个加号。这是我的应用程序：

## Note: extrafont is a bit finnicky on Windows, 
## so be sure to execute the code in the order 
## provided, or else ggplot won't find the font

# Use this to acquire additional fonts not found in R
install.packages("extrafont");library(extrafont)
# Warning: if not specified in font_import, it will 
# take a bit of time to get all fonts
font_import(pattern = "calibri")
loadfonts(device = "win")

#ui.r
library(shiny)
library(ggplot2)
library(plotly)
library(extrafont)
library(ggrepel)
fluidPage(

  # …

如何在R中将数字格式化465456.6789为漂亮的格式？465,4K其他示例 13567.566 至 13,5K 3567.5 至 3,5K 等等。一般来说，我想要类似的东西

roundup_to <- function(x, to = 10, up = FALSE){
  if(up) round(.Machine$double.eps^0.5 + x/to)*to else round(x/to)*to
}

roundup_to(c((74453.867574737)), to = 100)

成为74,5K