基本 R：移动条形图的 y 轴

Question

有没有办法将 y 轴向右移动，使 y 轴和第一个条之间的间隙为 0？

到目前为止，我已经尝试使用 axis() 命令制作一个新的 y 轴。 但我总是得到上面显示的相同。

这是数据集的示例：

dat <- structure(list(Property = structure(c(269L, 169L, 355L, 41L, 
50L, 125L, 131L, 157L, 382L, 250L, 209L, 105L, 181L, 46L, 286L, 
12L, 179L, 85L, 69L, 17L), .Label = c("Aisha", "Aitik", "Aktogay", 
"Aktogay SX-EW", "Alex", "Aljustrel", "Alumbrera", "Amandelbult Section", 
"Amawusu", "Andina Division", "Anqing", "Antamina", "Antapaccay", 
"Antas", "Antucoya", "Aranzazu", "Ashele", "Asientos", "Atacocha", 
"Atlas Toledo", "Bafokeng-Rasimone", "Bagdad", "Bagdad SX-EW", 
"Bairen", "Baiyin Changtong", "Baiyin Shenbu", "Baiyunshan", 
"Bashkir", "Batu Hijau", "Bingham Canyon", "Bisha", "Bismark", 
"Bizhigou", "Black Mountain", "Boddington", "Boliden Area", "Bolivar", 
"Bozshakol", "Bozymchak", "Buenavista", "Buenavista SX-EW", "Buribayevsky", 
"Bystrinskoye", "Cadia East", "Candelaria", "Carlota", "Carmen de Andacollo", 
"Carmen de Andacollo SX-EW", "Caserones", "Caserones SX-EW", 
"Cayeli", "Centinela Oxide", "Centinela Sulfide", "Central Region", 
"Cerro Colorado", "Cerro Corona", "Cerro Lindo", "Cerro Verde", 
"Cerro Verde SX-EW", "Chambishi", "Changhong", "Chapada", "Charcas", 
"Chelopech", "Chibuluma South", "Chifeng Fubo", "Chimashan", 
"Chino", "Chino SX-EW", "Chungar", "Chuquicamata", "Chuquicamata SX-EW", 
"Cobar", "Cobriza", "Collahuasi", "Continental", "Copper Mountain", 
"Cozamin", "Cuajone", "Dahongshan", "Dajingzi", "Daluowan", "Dapingzhang", 
"Datong", "Deerni", "Deflector", "DeGrussa", "Dexing Complex", 
"Didipio", "Doe Run Mines", "Don Mario", "Dongguashan", "Dongjin", 
"Dongshengmiao", "Dongtong", "Duobaoshan", "Duobaoshan SXEW", 
"Eagle", "East Region Operations", "El Abra", "El Brocal", "El Porvenir", 
"El Soldado", "El Teniente", "El Teniente SX-EW", "El Valle", 
"Ellatzite", "Erdenet", "Ernest Henry", "Erzhulong", "Escondida", 
"Escondida SX-EW", "Etoile", "Fenghuangshan", "Fengjiashan", 
"Fengjiawan", "Fengshan", "Flin Flon", "Francisco I Madero", 
"Franke", "Frontier", "Fuyuan", "Gabriela Mistral", "Gaisky Complex", 
"Garpenberg", "Gibraltar", "Golden Grove", "Grasberg", "Guelb Moghrein", 
"Heijing", "Heiniudong", "Highland Valley", "Hongwei", "Huaron", 
"Huayu", "Hunchun", "Huogeqi", "Huzhan", "IMMSA", "Jabal Sayid", 
"Jaguar", "Jiama", "Jiangjushuijin", "Jilongshan", "Jinchuan", 
"Jingfeng", "Jinhongtao", "Jinshen", "Jiujiang", "Jixing", "Julcani", 
"Junpeng", "Kainantu", "Kalatongke", "Kamoto SX-EW", "Kansanshi", 
"Kansanshi SX-EW", "Kapan", "Karaganda Region", "Kazzinc Consolidated", 
"Kevitsa", "KGHM Polska Miedz", "Kidd Creek", "Kinsevere", "Konkola", 
"Kroondal", "Kylylahti", "La Caridad", "La Caridad SX-EW", "Lac des Iles", 
"Lalor Lake", "Lamazhaobei", "Langlike", "Langlois", "Langyashan", 
"Lanniping", "Laocun Hydrometallurgy Plant", "Laolaihong", "LaRonde", 
"Las Bambas", "Las Cruces", "Lianhuashan", "Liuzuo", "Liwan", 
"Liwu", "Lomas Bayas", "Long Complex", "Longteng", "Los Bronces", 
"Los Bronces SX-EW", "Los Pelambres", "Lubambe", "Lumwana", "Luodong", 
"Luojiahe", "Lvshui", "Manitoba Division", "Mantos Blancos", 
"Mantos Blancos SX-EW", "Maoyuan", "Maria", "Marikana", "Matagami", 
"MCSA Mining Complex", "Miami", "Milpillas", "Mimosa", "Minera Valle Central", 
"Miniere Musoshi Kinsenda", "Ministro Hales", "Minto", "Mission", 
"Modikwa", "Mogalakwena", "Morenci", "Morenci SX-EW", "Morococha", 
"Mototolo", "Mount Carlton", "Mount Milligan", "Mount Polley", 
"Mowana", "Mt Garnet", "Mt Isa Copper", "Mufulira", "Mufulira SX-EW", 
"Muliashi North", "Mutanda", "Mutanda SX-EW", "Myra Falls", "Nanchong", 
"Nchanga", "Nchanga SX-EW", "Nevada Operations", "Neves-Corvo", 
"New Afton", "Nifty", "Niutoushan", "Nkana", "Nkomati", "Norilsk", 
"Northparkes", "Nova-Bollinger", "Nuoergai", "Ok Tedi", "Olympic Dam", 
"Ontario Division", "Oyu Tolgoi", "Padcal", "Palabora", "Peak", 
"Phoenix SX-EW", "Phu Kham", "Pilanesberg", "Pinto Valley", "Pinto Valley SX-EW", 
"Prominent Hill", "Proyecto de Rio Tinto", "Pueblo Viejo", "Pulang", 
"Punitaqui", "Pyhasalmi", "Qiaoxiahala", "Qilianshan", "Quanli", 
"Quebrada Blanca", "Radomiro Tomic", "Raglan", "Raura", "Ray", 
"Ray SX-EW", "Red Chris", "Robinson", "Rosebery", "Ruashi", "Rubtsovskoye", 
"Rustenburg", "Sabinas", "Safford", "Saishitang", "Salobo", "Salvador", 
"San Francisco del Oro", "San Martin", "San Vicente", "Sanxin", 
"Sarcheshmeh", "Sepon Copper", "Shangrao", "Shaxi", "Shejiaao", 
"Shijiangjun", "Shijuli Copper Mine Liuhaogou", "Shilong", "Shitouzui", 
"Shizishan", "Shuangfo Conc. Plant", "Shuangfo Second Conc. Plant", 
"Shunqiang", "Sichuan La-La", "Sierra Gorda", "Sierrita", "Sierrita SX-EW", 
"Silver Bell", "Soerkuduke", "Songjiang", "Sossego", "Sotiel", 
"Spence SX-EW", "Stillwater", "Sudbury Operations", "Sunan Dongshanding", 
"Suolagou", "Suolajier", "Tangdan Conc. Plant", "Tangtang", "Tanyaokou", 
"Tayahua", "Telfer", "Tenke Fungurume", "Thalanga", "Tizapa", 
"Tongdan", "Tonghe", "Tongkuangyu", "Tonglvshan", "Tongshan", 
"Tongshankou", "Tongshanpai", "Toquepala", "Toquepala SX-EW", 
"Toromocho", "Trident - Sentinel", "Tritton", "Trojan", "Tulaergen", 
"Tuwu-Yandong", "Two Rivers", "Tyrone SX-EW", "Uchaly", "Union Section", 
"Unki", "Varvara", "Velardena", "Voisey's Bay", "Weilasituo", 
"Western Limb Tailings", "Wetar", "Wunugetushan", "Wushan", "Wutonghua", 
"Wutongjing", "Xietongmen", "Xiliduo", "Xinqiao", "Xinwang", 
"Yangla", "Yaodongzao", "Yauli", "Yauliyacu", "Yauricocha", "Yinan", 
"Yincan", "Yinlu", "Yinmin", "Yinshan", "Yinshanling", "Yiyang Xuri", 
"Yongping", "Yueshan", "Yulong", "Zaldivar", "Zarechensky", "Zhezkazgan Complex", 
"Zhibula", "Zhixincheng Conc. Plant", "Zhurihe", "Zihao", "Zijinshan", 
"Zijinshan SXEW", "Zimplats", "Zinkgruvan", "Zondereinde"), class = "factor"), 
    Country = structure(c(24L, 21L, 10L, 21L, 9L, 32L, 10L, 35L, 
    32L, 30L, 11L, 9L, 31L, 34L, 10L, 24L, 8L, 10L, 34L, 10L), .Label = c("Argentina", 
    "Armenia", "Australia", "Bolivia", "Botswana", "Brazil", 
    "Bulgaria", "Canada", "Chile", "China", "Dem. Rep. Congo", 
    "Dominican Republic", "Eritrea", "Finland", "Indonesia", 
    "Iran", "Kazakhstan", "Kyrgyzstan", "Laos", "Mauritania", 
    "Mexico", "Mongolia", "Papua New Guinea", "Peru", "Philippines", 
    "Poland", "Portugal", "Russia", "Saudi Arabia", "South Africa", 
    "Spain", "Sweden", "Turkey", "USA", "Zambia", "Zimbabwe"), class = "factor"), 
    Percent = c(0, 0, 0.15, 0.17, 0.69, 0.85, 0.86, 0.91, 1.34, 
    1.35, 1.6, 1.72, 1.73, 2.14, 2.16, 2.23, 4.71, 4.73, 4.79, 
    4.95), Tonnes = c(0.2, 26.4, 3.8, 89.3, 28.8, 0.6, 9.7, 73.9, 
    1.3, 44.4, 20.7, 2, 70.7, 3.2, 13.3, 429.9, 4.5, 9.7, 28, 
    43.2), Labor = c(0, 1.62, 7.97, 3.58, 8.29, 26.46, 10.42, 
    6.22, 25.42, 15.19, 16.44, 50.13, 28.65, 26.11, 13.42, 24.53, 
    47.08, 18.86, 14.07, 11.17), Energy = c(0, 4.5, 9.92, 7.89, 
    7.57, 7.07, 10.22, 5.49, 5.99, 9.08, 10.3, 8.53, 25.2, 7.48, 
    16.83, 10.17, 7.06, 15.44, 10.89, 13.83), Reagents = c(0, 
    15.33, 2.11, 29.11, 19.52, 2.21, 2.79, 22.37, 1.45, 4.78, 
    0.66, 9.31, 9.53, 33.36, 3.3, 4.75, 2.19, 1.26, 32.03, 0.94
    ), oOnsite = c(0, 5.13, 11.39, 12.71, 29.16, 20.88, 12.26, 
    27.06, 10.15, 17.63, 5.64, 9.89, 20.2, 13.3, 20.98, 12.44, 
    15.91, 14.77, 35.61, 11.6), Shipment = c(0, 2.27, 26.71, 
    2.27, 3.6, 17.21, 29.15, 1.13, 38.78, 25.19, 46.23, 2.27, 
    1.81, 1.38, 23.43, 29.91, 13.38, 34.71, 4.08, 46.98), Royalty = c(0, 
    12.69, 5.56, 13.37, 3, 0, 11.54, 18.52, 0, 13.38, 7.02, 8.68, 
    4.02, 8.43, 15.96, 12.62, 9.35, 10.4, 0, 12.26), TotalCC = c(0, 
    41.55, 63.66, 68.92, 71.12, 73.83, 76.39, 80.79, 81.78, 85.25, 
    86.28, 88.81, 89.42, 90.06, 93.92, 94.42, 94.96, 95.43, 96.68, 
    96.78), pr = c(296.2, 254.65, 232.54, 227.28, 225.08, 222.37, 
    219.81, 215.41, 214.42, 210.95, 209.92, 207.39, 206.78, 206.14, 
    202.28, 201.78, 201.24, 200.77, 199.52, 199.42), CumTonnes = c(0.2, 
    26.6, 30.4, 119.7, 148.5, 149.1, 158.8, 232.7, 234, 278.4, 
    299.1, 301.1, 371.8, 375, 388.3, 818.2, 822.7, 832.4, 860.4, 
    903.6)), row.names = c(NA, 20L), class = "data.frame")

此代码复制了上面的图表：

barplot(dat$TotalCC, dat$Tonnes, xaxt = "n",xlab="Paid Copper (000s Tonnes)",ylab = "Total Cash Costs (US cents/lb)", space = rep(0, 20), main = "2018 Copper Production by Total Cash Cost")

有没有一种简单的方法可以将 y 轴向右移动？ 或者，是否可以偏移 x 轴，使两个轴在 0 处相交？

Answer 1

使用轴作为假并将它们设置为零

barplot(dat$TotalCC, dat$Tonnes, xaxt = "n", 
        axes = F,
        xlab="Paid Copper (000s Tonnes)",
        ylab = "Total Cash Costs (US cents/lb)", space = rep(0, 20), 
        main = "2018 Copper Production by Total Cash Cost", yaxs="i")
axis(1, pos=0)
axis(2, pos=0)