r语言 - 使用绘图/动态图在闪亮中创建图形

Question

我希望根据我不知道长度的数据集创建动态数量的图形。 有一天它会是 2 长另外 20.. 我想对dygraphs或plotly使用相同的代码，所以不想在plotly中使用子图作为一种选项。

我创建了以下内容，但它没有循环情节方面，或者如果我在情节部分中输入 for 循环，然后完成所有 4 X 然后情节名称是一个问题，因为它有重复项.. 当您运行时，您可以看到显示问题的打印语句..

关于如何让此代码为每行数据创建 1 张图的任何想法？

shinyServer(function(input, output) { 

# Insert the right number of plot output objects into the web page 

############################# graph data###################
observe({BRANDslotpcp()})
BRANDslotpcp<-reactive({
slot_id<-c("a-slot1","b-slot0")
nga_diagnostic_code<-c("BT","XT")
nga_color<-c("black","red")
expr_1<-c(10,20)
period_date<-c("2019-10-01","2019-10-01")
a<-data.frame(slot_id,nga_diagnostic_code,nga_color,expr_1,period_date)
return(a)
})
############################slot options #########################   
slotdrop<-eventReactive(BRANDslotpcp() ,{
req(BRANDslotpcp())
slot1a<- unique(BRANDslotpcp()$slot_id)
# print(slot1a)
# slot1<- slot1a[order(slot1a,decreasing=TRUE),]
# print(slot1a)
slot1<-data.frame(slot1a)
#  print(slot1[2,1])
return(slot1)
#(slot1)
})

###################################

#observeEvent(slotdrop(),{
observe({
for (i in 1:nrow(slotdrop())){
plotname2 <- paste0("pcpslotbrandenburgplot", slotdrop()[i,1])
#

print(i)
print("i") 
local({
output[[plotname2]] <- renderPlotly ({
myi<-i
#for (i in 1:nrow(slotdrop())){
plotname1 <<- paste0("pcpslotbrandenburgplot", slotdrop()[myi,1])
print("test")
print(plotname1)
# plotname <- paste0("pcpslotbrandenburgplot", slotdrop()[i,1])
a<-slotdrop()[myi,1]
print("a")
print(a)
#View(BRANDslotpcp())
dataname<- BRANDslotpcp()[BRANDslotpcp()$slot_id == a,]

print(dataname)
print( "dataname")

plot_ly(dataname, x = substring(as.character(dataname$period_date),0,10), y = dataname$expr_1, 
type = 'bar',name=dataname$nga_diagnostic_code,
text =~paste(dataname$expr_1,"-",dataname$nga_diagnostic_code),
textposition = 'inside',
#textinfo = 'count', 
insidetextfont = list(color = '#000000'), 
marker = list(color = dataname$nga_color,line = list(color = '#FFFFFF', width = 1)),
showlegend = FALSE) %>%
config(displayModeBar = F)%>%
#layout(yaxis = list(title = 'Count'), barmode = 'stack')
layout(title = plotname1 ,margin = list(b = 160),xaxis = list(title = "", tickangle = 90), yaxis = list(title = 'Count'), barmode = 'stack')
# }
})
})

output$plots <- renderUI({ 
plot_output_list <- lapply(1:nrow(slotdrop()), function(i) { 
plotname <- paste0("pcpslotbrandenburgplot", slotdrop()[i,1]) 
print("plotname here")
print(plotname)
plotlyOutput(plotname, height = 280, width = 550)
})
print(plot_output_list)
do.call(tagList, plot_output_list)
})      
}
})


}) 

Answer 1

好的修复了这个问题..这是服务器代码

图书馆(闪亮( 图书馆(剧情(

observe({BRANDslotpcp()})
BRANDslotpcp<-reactive({
slot_id<-c("a-slot0","b-slot1","c-slot2")
nga_diagnostic_code<-c("BT","XT","PPI")
nga_color<-c("green","red","blue")
expr_1<-c(10,20,30)
period_date<-c("2019-10-01","2019-10-01","2019-10-01")
a<-data.frame(slot_id,nga_diagnostic_code,nga_color,expr_1,period_date)
#View(a)
return(a)
})


slotdrop<-eventReactive(BRANDslotpcp() ,{
req(BRANDslotpcp())
slot1a<- unique(BRANDslotpcp()$slot_id)
slot1<-data.frame(slot1a)
# View(slot1)
return(slot1)
})

shinyServer(function(input, output) {

# Insert the right number of plot output objects into the web page
output$plots <- renderUI({

#  print(i)
plot_output_list <- lapply(1:nrow(slotdrop()), function(i) {
plotname <- paste("pcpslotbrandenburgplot", slotdrop()[i,1], sep="")

# tags$div(class = "group-output",
plotlyOutput(plotname, height = 280, width = 250)
})
#}
print(plot_output_list)

# Convert the list to a tagList - this is necessary for the list of items
# to display properly.
#  do.call(tagList, plot_output_list)
})
observe({
# Call renderPlot for each one. Plots are only actually generated when they
# are visible on the web page.
for (i in 1:nrow(slotdrop())) {
# Need local so that each item gets its own number. Without it, the value
# of i in the renderPlot() will be the same across all instances, because
# of when the expression is evaluated.
local({
tst<-slotdrop()[i,1]
# View(tst)
dataname<- BRANDslotpcp()[BRANDslotpcp()$slot_id == tst,]
plotname <- paste("pcpslotbrandenburgplot",tst, sep="")
output[[plotname]] <- renderPlotly({
print(dataname$expr_1) 
plot_ly(dataname, x= substring(as.character(dataname$period_date),0,10),y= dataname$expr_1,
type = 'bar',name=dataname$nga_diagnostic_code,
text =~paste(dataname$expr_1,"-",dataname$nga_diagnostic_code),
textposition = 'inside',
#textinfo = 'count',
insidetextfont = list(color = '#000000'),
marker = list(color = dataname$nga_color,line = list(color = '#FFFFFF', width = 1)),
showlegend = FALSE) %>%
config(displayModeBar = F)%>%
#layout(yaxis = list(title = 'Count'), barmode = 'stack')
layout(title = plotname ,margin = list(b = 160),xaxis = list(title = "", tickangle = 90), yaxis = list(title = 'Count'), barmode = 'stack')
# plot(factor(dataname$period_date),dataname$expr_1, ylab="a",xlab="b",main = paste(plotname, sep = ""))
})
})
}
})
})
ui is 
shinyUI(pageWithSidebar( 

headerPanel("Dynamic number of plots"), 

sidebarPanel(
),

mainPanel( 
# This is the dynamic UI for the plots 
uiOutput("plots") 
) 
))