我创建了第二个输入字段＆＃34;选择一个国家＆＃34;对于基于＆＃34的先前输入字段的国家图表;选择一个区域＆＃34;从侧面板。
我使用了＆＃34;国家＆＃34;指定数据表的列，作为每个＆＃34;区域＆＃34;之后出现的名称。使用updateSelectInput。
选择（也是一列）出于某种原因，它可以在我创建的一个名为＆＃34; gender＆＃34;的标签中工作，除了使用的数据表不同之外，它具有完全相同的格式。我几乎复制并粘贴了＃34;性别＆＃34;中的代码块。选项卡中的选项卡＆＃34;最高教育。＆＃34;但对于最高教育和＃34;选项卡，当我选择特定区域时，下拉菜单为＆＃34;选择一个国家＆＃34;是空白的，虽然我可以看到它加载了该区域列表中第一个国家的情节。
我正在玩变量＆＃34; country＆＃34;的类型，在因素和字符之间切换。现在，这些代码适用于＆＃34;性别＆＃34;仅限标签。我的机智已经结束了。
有人可以发现我的代码有什么问题吗？
数据集如下所示：
iso3 region participation country male female lower class
ALB region2 0.5262631 Albania 0.5834176 0.4702970 0.4285714
AND region1 0.6699900 Andorra 0.7236581 0.6160000 0.4117647
ARG region4 0.2857675 Argentina 0.3109277 0.2631020 0.2270694
＆＃34;性别标签＆＃34;的数据集是这样的：
data.frame': 85 obs. of 4 variables:
$ region : Factor w/ 7 levels "region1","region2",..: 2 1 4 2 7 3 5 3 2 2 ...
$ country: Factor w/ 85 levels "Albania","Algeria",..: 1 3 4 5 6 7 13 8 12 10 ...
$ male : num 0.58 0.72 0.31 1 0.67 0.45 0.41 0.62 0.21 0.53 ...
$ female : num 0.47 0.62 0.26 1 0.67 0.4 0.24 0.38 0.16 0.35 ...
最高教育选项卡的数据集如下：
'data.frame': 85 obs. of 8 variables:
$ region : Factor w/ 7 levels "region1","region2",..: 2 1 4 2 7 3 5 3 2 2
$ country : Factor w/ 85 levels "Albania","Algeria",..: 1 3 4 5 6 7 13 8
$ Primary : num 0.456 0.525 0.215 1 0.519 ...
$ Secondary.incomplete : num 0.489 0.614 0.337 0.995 0.727 ...
$ Secondary.vocational : num 0.561 0.681 0.324 1 0.768 ...
$ Secondary.preparatory: num 0.583 0.632 0.492 0.998 0.793 ...
$ Tertiary.incomplete : num 0.696 0.732 0.545 0.981 0.802 ...
$ Tertiary : num 0.728 0.833 0.625 0.997 0.854 ...
library(shiny)
dataset <- wvs_c
shinyUI(fluidPage(
pageWithSidebar(
headerPanel("Membership in Associations in 85 countries using World Values Survey,
1981-2007"),
sidebarPanel(
selectInput("region", "Select a region:",
list("All World"= "the world",
"North America & Western Europe"="region1",
"Central Europe"="region2",
"Asia"="region3",
"Latina America & Caribbean"="region4",
"Sub-Saharan Africa"="region5",
"Middle East & Northern Africa"="region6",
"Oceania"="region7"),
selected= "the World" )
),
mainPanel(
h4("testing"),
tabsetPanel(
id = 'dataset',
tabPanel('Map', plotOutput("map")
, helpText("Probability of being a member of an association, types of
association included are
sports, arts, labor, politics, environment, women's rights, human rights,
charity, and other.")),
tabPanel('Gender', dataTableOutput('mytable'),
selectInput('country', 'Select a Country:',
names(wvs_c$country), selected=names(wvs_c$country)[1]),
plotOutput("myplot")
),
tabPanel('Highest education attained', dataTableOutput('mytable1'),
selectInput('country', 'Select a Country:',
names(wvs_c$country), selected=names(wvs_c$country)[1]),
plotOutput("myplot1")
)
),
p("Above is a graphical representation of rate of being an associational member.")
)
)))
library(rworldmap)
library(plyr)
library(reshape)
library(ggplot2)
wvs_c <- read.csv("./wvs_c")
wvs_c <- wvs_c[, -1]
shinyServer(function(input,output,session) {
gender <- wvs_c[,c(2, 4:6)]
highested <- wvs_c[,c(2, 4, 12:17)]
colnames(highested) <- c("region", "country", "Primary", "Secondary.incomplete",
"Secondary.vocational","Secondary.preparatory",
"Tertiary.incomplete", "Tertiary")
# Create a second field of input "Select a country" based on the first input field
"Select a region"
observe({
region = input$region
updateSelectInput(session, "country",
choices = levels(as.factor(as.character(wvs_c$country[wvs_c$region==region]))),
selected = levels(as.factor(as.character(wvs_c$country[wvs_c$region==region])))[1]
)
})
# Create charts for each country's gender breakdown
selectedPlot <- reactive({
if (input$region == "the world") {
#for regional average of gender
test<- aggregate(gender[, c("male", "female")], by =
list(as.character(gender$region)), function(x) c(mean=mean(x)))
colnames(test)[1] <- "region"
test2 <- melt(test[,c('region','male','female')],id.vars = 1)
## codes for ggplot using "test2", works
} else {
region = input$region
country = input$country
cbbPalette <- c("#01DFD7", "#F78181")
x <- gender[(gender$country== country),]
x <- melt(x[,c('country','male','female')], id.vars = 1)
x1 <- ggplot(data=x, aes(x=variable, y=value))
x1 <- x1 + geom_bar(aes(fill = variable), position="dodge", stat="identity") +
scale_fill_manual(values=cbbPalette)
x1 <- x1 + labs(y = 'Percent of members', x = '') + theme(axis.text.x =
element_blank()) + ylim(0, 1) + theme(legend.title=element_blank())
x1
}
})
output$myplot = renderPlot({
selectedPlot()
}
)
# Create charts for each country's educational level breakdown
selectedPlot1 <- reactive({
if (input$region == "the world") {
test3 <- aggregate(highested_data[, c('Primary', 'Secondary.incomplete',
'Secondary.vocational','Secondary.preparatory', 'Tertiary.incomplete',
'Tertiary')], by = list(as.character(highested_data$region)), function(x)
c(mean=mean(x)))
colnames(test3)[1] <- "region"
test3 <- melt(test3[, c
('region','Primary','Secondary.incomplete','Secondary.vocational'
,'Secondary.preparatory','Tertiary.incomplete','Tertiary')],
id.vars = 1)
## codes for ggplot using "test3", works
} else {
region = input$region
country = input$country
cbbPalette1 <- c("#F7BE81", "#F79F81", "#82FA58", "#04B486", "#00BFFF",
"#01A9DB")
y <- highested[(highested$country == country),]
y <-melt(y[,
c('country','Primary','Secondary.incomplete','Secondary.vocational'
,'Secondary.preparatory','Tertiary.incomplete','Tertiary')], id.vars = 1)
y1 <- ggplot(data=y, aes(x=variable, y=value))
y1 <- y1 + geom_bar(aes(fill = variable), position="dodge", stat="identity")
+ scale_fill_manual(values=cbbPalette1)
y1 <- y1 + labs(y = 'Percent of members', x = '') + theme(axis.text.x =
element_blank()) + ylim(0, 1) +
theme(legend.title=element_blank())
y1
}
})
output$myplot1 = renderPlot({
selectedPlot1()
}
)
答案 0 :(得分：0)
其他人指出了我的问题：
我国家只有一个SelectInput字段，但我有两个标签。它混淆了浏览器。 所以我创建了一个单独的chuck代码，用于指定server.R中的输入，并为ui.R使用不同的inputID
ui.R
tabPanel('Highest education attained', dataTableOutput('mytable1'),
selectInput('country2', 'Select a Country:',
names(wvs_c$country), selected=names(wvs_c$country)[1]),
plotOutput("myplot1")
)
server.R
observe({
region = input$region
updateSelectInput(session, "country2",
choices =
levels(as.factor(as.character(wvs_c$country[wvs_c$region==region]))), selected =
levels(as.factor(as.character(wvs_c$country[wvs_c$region==region])))[1]
)
})
# then in the codes for highest education country plot
....
} else {
region = input$region
country = input$country2