查看ISRL包中的Carseats数据，创建条形图。x值将是一个因子ShelveLoc，每个图表代表数据集中的每一列。数据的头部：

library(tidyverse)
library(ISLR)
head(Carseats)

  Sales CompPrice Income Advertising Population Price ShelveLoc Age Education Urban  US
1  9.50       138     73          11        276   120       Bad  42        17   Yes Yes
2 11.22       111     48          16        260    83      Good  65        10   Yes Yes
3 10.06       113     35          10        269    80    Medium  59        12   Yes Yes
4  7.40       117    100           4        466    97    Medium  55        14   Yes Yes
5  4.15       141     64           3        340   128       Bad  38        13   Yes  No
6 10.81       124    113          13        501    72       Bad  78        16    No Yes

字符串
绘制ShelveLoc与其他列的关系图可以打印图形，但不显示y值：

ISLR::Carseats %>% 
  gather(-ShelveLoc,  key = "var", value = "value") %>% 
  ggplot(aes(x = ShelveLoc, y = value)) +
  geom_col() +
  facet_wrap(~var, scales = "free")

型
这就是它的样子-条形图很好，但y值不清楚。
x1c 0d1x的数据
如何清楚地显示y值？