Я не могу выровнять центр по моим переключателям в поле () в R-программировании. В настоящее время его расположение по левому краю по умолчанию. Я хочу, чтобы эти две радиокнопки были в центре поля (). Найдите снимок.
код:
пользовательский интерфейс -
box(h4("Select version"), fluidRow(radioButtons("Ben", "____________________", c("DESH1","DESH2"
), inline = T),
plotOutput("lineChart", height = 360, width = 1000)), width = 700, height = 500, background = "black"))
сервер -
if (input$Ben == "DESH1") {
ggplot(data = line3, aes(x = Month, y= CountOfBeneficiaries.x, group = 2)) +
#ggplot(data= line3, aes(x = Month, y1 = CountOfBeneficiaries.y, group = 2 )) +
geom_line(color = "green", size = 1) +
geom_point(color = "yellow", size = 15) +
theme(legend.position="top") + theme_minimal() +
geom_text(data = line3, aes(label = CountOfBeneficiaries.x), size = 4, color = 'black') +
geom_hline(yintercept = mean(line3$CountOfBeneficiaries.x), color = 'red')
} else {
ggplot(data = line3, aes(x = Month, y= CountOfBeneficiaries.y, group = 2)) +
#ggplot(data= line3, aes(x = Month, y1 = CountOfBeneficiaries.y, group = 2 )) +
geom_line(color = "green", size = 1) +
geom_point(color = "yellow", size = 15) +
theme(legend.position="top") + theme_minimal() +
geom_text(data = line3, aes(label = CountOfBeneficiaries.y), size = 4, color = 'black') +
geom_hline(yintercept = mean(line3$CountOfBeneficiaries.y), color = 'red')
}