问题描述
我想创建一个带状图。在下面的示例中，我希望在 x 轴上有 role 的类别，在 y 轴上有 df_roles 的数值。我的预期输出是相应地在散点图中绘制国家/地区，并带有标签。我试过了
ggplot(data = df_roles) +
aes(y = role,x = df_roles$role) +
geom_sina(col=rgb(0,100,maxColorValue = 255),pch=16) +
coord_flip()
在 x 轴上正确绘制 df_roles$role，但没有在 y 轴上绘制来自 role 的正确数值及其数据。
这是一个最小的可重现示例：
role <- structure(list(`table$Result` = c(-0.387885046920444,-0.0310055313205592,-0.204889810050621,-0.253526220213959,-0.36885965422865,1.20966176495043
)),row.names = c("Afghanistan","Albania","Algeria","Angola","Antigua and Barbuda","Argentina"),class = "data.frame")
df_roles <- structure(list(name = structure(c(171L,133L,26L,16L,49L,5L),.Label = c("Afghanistan","Argentina","Armenia","Australia","Austria","Azerbaijan","Bahrain","Bangladesh","Barbados","Belarus","Belgium","Belize","Benin","Bhutan","Bolivia (Plurinational State of)","Bosnia and Herzegovina","Botswana","Brazil","Brunei Darussalam","Bulgaria","Burkina Faso","Burundi","Côte d'Ivoire","Cambodia","Cameroon","Canada","Central African Republic","Chad","Chile","China,Hong Kong SAR",Macao SAR",mainland",Taiwan Province of","Colombia","Congo","Costa Rica","Croatia","Cuba","Cyprus","Czechia","Democratic People's Republic of Korea","Democratic Republic of the Congo","Denmark","Dominica","Dominican Republic","Ecuador","Egypt","El Salvador","Equatorial Guinea","Eritrea","Estonia","Eswatini","Ethiopia","Finland","France","Gabon","Gambia","Georgia","Germany","Ghana","Greece","Grenada","Guatemala","Guinea","Guinea-Bissau","Guyana","Haiti","Honduras","Hungary","India","Indonesia","Iran (Islamic Republic of)","Iraq","Ireland","Israel","Italy","Jamaica","Japan","Jordan","Kazakhstan","Kenya","Kuwait","Kyrgyzstan","Lao People's Democratic Republic","Latvia","Lebanon","Lesotho","Liberia","Libya","Lithuania","Luxembourg","Madagascar","Malawi","Malaysia","Mali","Malta","Mauritania","Mexico","Mongolia","Montenegro","Morocco","Mozambique","Myanmar","Namibia","Nepal","Netherlands","New Zealand","Nicaragua","Niger","Nigeria","north Macedonia","norway","Oman","Pakistan","Palestine","Panama","Papua New Guinea","Paraguay","Peru","Philippines","Poland","Portugal","Qatar","Republic of Korea","Republic of Moldova","Romania","Russian Federation","Rwanda","Saint Kitts and Nevis","Saint Lucia","Saint vincent and the Grenadines","Saudi arabia","Senegal","Serbia","Sierra Leone","Singapore","Slovakia","Somalia","South Africa","Spain","Sri Lanka","Sudan","Suriname","Sweden","Switzerland","Syrian arab Republic","Tajikistan","Thailand","Timor-Leste","Togo","Trinidad and Tobago","Tunisia","Turkey","Turkmenistan","Uganda","Ukraine","United arab Emirates","United Kingdom of Great Britain and northern Ireland","United Republic of Tanzania","United States of America","Uruguay","Uzbekistan","Vanuatu","Venezuela (Bolivarian Republic of)","Viet Nam","Yemen","Zambia","Zimbabwe"),class = "factor"),connectivity = c(-1.22474487139159,-1.05309190650219,-0.928012024886989,-0.829934222014463),participation = c(0.75,0.5,0.56,0.65625,0.444444444444444),role = structure(c(3L,2L,3L,2L),.Label = c("Ultra peripheral","Peripheral","Connector","Kinless","Peripheral Hub","Connector Hub","Kinless Hub"),class = c("ordered","factor"))),row.names = c(171L,class = "data.frame")
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）