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

问题描述

有没有办法将 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,9L,32L,35L,30L,11L,31L,34L,24L,8L,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"),Percent = c(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,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,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,20.98,12.44,15.91,14.77,35.61,11.6),Shipment = c(0,2.27,26.71,3.6,17.21,29.15,1.13,38.78,25.19,46.23,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,11.54,18.52,7.02,8.68,4.02,8.43,15.96,12.62,9.35,10.4,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 处相交？

解决方法

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

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)