output$atendida <- renderPlot{ ggplot(dados_selecionados()) + geom_bar(aes(Atendida),fill = c('red','green'),stat = 'count') + ylab('Quantidade') + theme_bw() + ggtitle('Quantidade de Chamados Atendidos')})
output$atendida <- renderPlot{ ggplot(dados_selecionados()) + geom_bar(aes(Atendida),fill = c('red','green'),stat = 'count') + ylab('Quantidade') + theme_bw() + ggtitle('Quantidade de Chamados Atendidos')})
Olá Renata, tudo bem? Espero que sim!
Muito bem Renata, esse código irá retornar o gráfico estático, uma vez que não está mais utilizando o ggplotly que deixa os gráficos interativos.
Faltou apenas um parênteses na chamada da função renderPlot, logo no início da entrada dos parâmetros da função: output$atendida <- renderPlot ({.
Você também pode utilizar uma funcionalidade do fórum para inserir blocos de código, inserindo três crases para abrir o bloco de código e três crases para fechar o bloco de código, colocando o código entre as crases. Há um botão no editor de texto que habilita essa funcionalidade. Dessa forma o código ficará mais destacado e fácil de entender.
A imagem a seguir serve como exemplo para adição de blocos de código no corpo da mensagem, dando destaque ao botão de inserção de código e às crases de abertura e fechamento do código:
Ao inserir o código dessa forma, ele será apresentado da seguinte forma ser postado:
output$atendida <- renderPlot({
ggplot(dados_selecionados()) +
geom_bar(aes(Atendida),fill = c('red','green'),stat = 'count') +
ylab('Quantidade') +
theme_bw() +
ggtitle('Quantidade de Chamados Atendidos')
}) Bons estudos!