my_fun<-function(data, y, size){
  plot_ly(data={{data}}, x = ~Item, y = ~y,type = 'scatter', mode = 'markers', size = ~{{size}}, color = ~Category, colors = 'Paired',
          marker = list(opacity = 0.5, sizemode = 'diameter')) %>% 
    layout(title =list(text = paste(y, "of Each Item", sep=" ")),
           xaxis = list(zeroline = T, tickangle = 45),
           yaxis = list(title = y))
}
my_fun(drink, drink$Calories, drink$Calories)

my_fun <- function(data, y_name, marker_size) {
    plot_ly(data = data, 
            x = ~Item,
            # x = ~gsub('\\s', '<br>', Item),          
            y = ~get(y_name),
            type = 'scatter', mode = 'markers', 
            size = ~get(marker_size), 
            color = ~Category, colors = 'Paired',
            text = ~paste0(
              'Category: ', data$Category, '<br>', 
              'Item: ', data$Item, '<br>', 
              y_name, ': ', data[[y_name]]),
            hoverinfo = 'text',
            marker = list(opacity = 0.5, sizemode = 'diameter')) %>% 
    layout(title = paste(y_name, "of Each Item"),
           grid = FALSE,
           xaxis = list(title = '', 
                        showgrid = FALSE,
                        # tickangle = 0,
                        showticklabels = FALSE),
           yaxis = list(title = y_name)) %>%
    config(displayModeBar = FALSE)
}
my_fun(drink, 'Calories', 'Calories')