CA的绘图高度

Question

我使用FactoMineR包在Shiny中渲染CA plot。虽然情节渲染得很好，但情节的高度似乎是固定的，看起来很紧凑。可重现的数据如下：

structure(list(MUMBAI = c(5236L, 222L, 24L, 54L, 31L), DELHI = c(4243L, 
301L, 54L, 67L, 107L), KOLKATTA = c(2777L, 67L, 270L, 64L, 56L
), HYDERABAD = c(3155L, 101L, 9L, 58L, 32L), PUNE = c(2262L, 
496L, 9L, 27L, 38L)), .Names = c("MUMBAI", "DELHI", "KOLKATTA", 
"HYDERABAD", "PUNE"), row.names = c("LOCAL CLIENT", "PRIVATE BUILDERS", 
"GOVERNMENT", "HONDA MOTORCYCLE AND SCOOTER INDIA PVT LTD", "PRIVATE COMPANIES"
), class = "data.frame")

以下是我正在使用的代码：

res <- CA(ft2, graph = FALSE)
plot(res, autoLab = "yes")

我尝试过使用

par(pin = c(10,4))

更改引脚值，但似乎不起作用。