R：Lattice如何去除条形和x轴之间的空白区域？

Question

我是R的新手，我正在使用晶格来创建聚类条形图。我写了下面的代码。

nature <- read.table(text = "Nature_of_recreation, Familiarity_with_the_partner, Count
Danced, Not familiar at all, 21
Danced, Not very familiar, 22
Danced, Very familiar, 22
Sketched, Not familiar at all, 6
Sketched, Not very familiar, 17
Sketched, Very familiar, 16
Dined, Not familiar at all, 16
Dined, Not very familiar, 14
Dined, Very familiar, 10
Swimmed, Not familiar at all, 6
Swimmed, Not very familiar, 15
Swimmed, Very familiar, 11
Played, Not familiar at all, 1
Played, Not very familiar, 6
Played, Very familiar, 7
Dreamed, Not familiar at all, 5
Dreamed, Not very familiar, 17
Dreamed, Very familiar, 10",
                     header = TRUE, sep = ",")
colors = c("lightsalmon3", "lightgoldenrod2", "cadetblue4")
lattice::barchart(data = nature, origin = 0, Count ~ Nature_of_recreation,
                  groups = Familiarity_with_the_partner, 
                  xlab = list(label = "Nature of recreation", font = 2, cex = 1),
                  ylab= list (label = "Number of students", font = 2, cex = 1),
                  labels = TRUE, auto.key = list(space="top", columns= 3),
                  par.settings = list(superpose.polygon = list(col = colors)))

输出看起来很好，除了：

1. 条形和X轴之间有一个空白区域。
2. 每个栏顶部没有显示值。



有人可以帮我解决这些问题吗？