让VetA = c(3.12,3.13,3.23,3.29,3.46)
我想以0.05间隔围绕它。解决方案可能是：
round(vetA/5,digits = 2)*5)
哪个会给我c(3.1, 3.15, 3.25, 3.3, 3.45)。
然而，如果我的愿望改变了，现在我想把它们围绕0.25。我该怎么办？
此外，这种想法可能会增长得更多，因为我希望绕过15 12,15.2,20,55,24的{{1}}区间数。
出于这个原因，你能帮我思考一下泛型函数吗？我只是通过0.25对分组进行建模时遇到了麻烦，想象一下它是一个更通用的分组。
答案 0 :(得分：2)
ui <- fluidPage(
selectInput("artists","pick 3 artists out of the top 10",
choices = c(), multiple = TRUE)
)
server <- function(input, output, session)
{
observe({
spotifydata<-spotifycharts::chart_top200_weekly()
s<-spotifydata$artist
h<-head(s,20)
updateSelectInput(session, inputId = "artists", choices = c(h[1],h[2],h[3],h[4],h[5],h[6],
h[7],h[8],h[9],h[10]))
})
}
shinyApp(ui, server)
解决方案是使用plyr
round_any