I am having trouble with creating a function that includes a filter() function. 
I keep getting an error (shown below) with this function:
plot <- function(df, group, varx, vary) {
  df %>% 
    filter(PC == group) %>%
    ggplot(aes(x = reorder(get(varx), get(vary)), y = get(vary))) + 
    geom_col() 
} 
Error in UseMethod("filter") : no applicable method for 'filter' applied to an object of class "character"
Anyone have an explanation/solution? Thanks!
 
    