我有一个简化的闪亮仪表板（见下面的代码）。我想修复侧边栏和主标题。所以，在其他帖子的帮助下，我写了一个 CSS 文件来解决这个问题。
.sidebar {
color: #FFF;
position: fixed;
width: 220px;
white-space: nowrap;
overflow: visible;
}
.main-header {
position: fixed;
width:100%;
}
它几乎可以工作......侧边栏和主标题是固定的，但是隐藏第一个框的标题的主标题有问题。我猜 CSS 中有一些关键字可以解决问题，但我没有找到它们（CSS 新手...）。
Shiny 仪表板代码如下。
library(ggplot2)
library(shiny)
library(shinydashboard)
CountPlotFunction <- function(MyData)
{
MyPlot <- ggplot(data = MyData, aes(x = MyData)) +
geom_bar(stat = "count", aes(fill = MyData)) +
geom_text(stat = "count", aes(label = ..count..)) +
scale_x_discrete(drop = FALSE) +
scale_fill_discrete(drop = FALSE)
return(MyPlot)
}
# The data
var1 <- c("Russia","Canada","Australia","Australia","Russia","Australia","Canada","Germany","Australia","Canada","Canada")
var2 <- c("UnitedStates","France","SouthAfrica","SouthAfrica","UnitedStates","SouthAfrica","France","Norge","SouthAfrica","France","France")
var3 <- c("Brazil","Colombia","China","China","Brazil","China","Colombia","Belgium","China","Colombia","Colombia")
df …我需要改变一个元素的顺序list.我没有在其他关于排序或订购列表的问题中找到专利回复.
这是一个简单的例子.
Freedom <- c(1, 2, 3, 2, 1, 2)
Equality <- c(2, 3, 1, 1, 2, 1)
TypeCountry <- c("South", "East", "East", "North", "South", "West")
Example <- list(Freedom, Equality, TypeCountry)
names(Example) <- c("Freedom", "Equality", "TypeCountry")
在list有秩序Freedom,Equality那么TypeCountry,我希望能够改变元素的顺序(例如Equality,Freedom然后TypeCountry).
我使用该wordcloud2程序包渲染词云。似乎wordcloud2并不总是显示最频繁的单词。
我说“不总是”，因为问题不是永久性的。看来结果大部分是随机的。
代码：
library(wordcloud2)
library(htmlwidgets)
DataCloud <- as.character(DataTextAnalysis[,1])
DataCloud <- as.data.frame(table(DataCloud))
DataCloud <- DataCloud[order(DataCloud$Freq, decreasing = TRUE),]
DataCloud <- DataCloud[1:10, ]
wordcloud2(data = DataCloud)
资料：
structure(list(`Theme 1` = structure(c(12L, NA, 2L, 4L, 6L, 7L,
NA, 14L, 6L, 6L, 2L, 7L, 5L, 2L, 2L, 2L, 11L, 12L, 2L, 2L, 10L,
NA, 12L, NA, 2L, 13L, 15L, NA, NA, 10L, NA, 1L, 2L, 16L, 6L,
1L, 7L, 9L, 15L, 3L, 1L, 2L, 2L, 2L, 17L, 2L, 17L, 7L, …我有一个Shiny应用程序 - 简化示例 - 我希望侧边栏在导航到标签项时动态隐藏.事实上,用户将主要通过手机连接到应用程序.
在shinydashboard默认的隐藏侧边栏的帮助下,我知道如何在到达应用程序时默认隐藏侧边栏,但始终显示侧边栏.
这是我的实际代码:
### Load librairies
library(shiny) ; library(shinydashboard) ; library(shinyjs)
library(dplyr)
### Load data
Weather <- c("cold", "rain", "snow","heat","sun")
Answer <- c("Take a coat","Take an umbrella","Take gloves","Take a swimsuit","Take solair cream")
Mydata <- data.frame( Weather, Answer, stringsAsFactors = FALSE)
remove(Weather, Answer)
### Shiny
Entete <- dashboardHeader(title = "My app")
BarreLaterale <- dashboardSidebar(
sidebarMenu(menuItem(text = "Home", tabName = "MyHome", icon = icon("home"))),
sidebarMenu(menuItem(text = "My search", tabName = "Search", icon = …我的目标是创建一个data frame包含多个名为->i的列ColumnName_1ColumnName_i
结果将是i = 3：
structure(list(ColumnName_1 = c(0, 0, 0), ColumnName_2 = c(0,
0, 0), ColumnName_3 = c(0, 0, 0)), .Names = c("ColumnName_1",
"ColumnName_2", "ColumnName_3"), row.names = c(NA, -3L), class = "data.frame")
我从其他主题的其他问题中了解到，不建议使用它assign，但这是我目前看到的唯一解决方案。
我的目标是更改 SpatialPolygon 对象的 ID 名称。我知道如何访问 ID 名称，但我不得不重命名它们。
这是一个示例（它是一个 SpatialPolygonDataFrame，但在我的“真实”情况下，它是一个 SpatialPolygon，因此多边形和数据框之间没有必要的链接）：
library(rgdal)
library(rgeos)
library(sp)
library(maptools)
data(wrld_simpl)
mymap.sp <- wrld_simpl[which(wrld_simpl$ISO3 == "ATG" |
wrld_simpl$ISO3 == "BRA" |
wrld_simpl$ISO3 == "FRA" |
wrld_simpl$ISO3 == "CIV"), ]
# access to the ID names
sapply(slot(mymap.sp, "polygons"), function(x) slot(x, "ID"))
[1] "ATG" "BRA" "FRA" "CIV"
假设我想用“1”、“2”、“3”、“4”替换这些ID名称。