我有以下要生成条形图的数据。但是，我无法弄清楚如何使列Var1代表其重量，这是由Freq列给出的。
X <-structure(list(Var1 = structure(c(4L, 12L, 13L, 14L, 20L, 28L,
30L, 36L, 39L, 41L, 42L, 43L, 44L, 45L, 50L, 51L, 53L, 55L, 57L,
59L, 60L, 63L, 68L, 70L, 81L), .Label = c("A1", "A2", "AD", "AE",
"AF", "AG", "AI", "AL", "AM", "AO", "AP", "AR", "AT", "AU", "AX",
"AZ", "BA", "BB", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BM",
"BN", "BO", "BQ", "BR", "BS", "BT", "BW", "BY", "BZ", "CA", "CD",
"CG", "CH", "CI", "CL", "CM", "CN", "CO", "CR", …