Привет. Я использую пакет «rworldmap» для своих данных. Все выполняет хорошо, единственная проблема связана с вязкой формата html. Вывод html не показывает карту. У меня есть другие графики в выводе html. Они граф (карта), что не было rworldmap.
Примечание:
1- Мне нужно загрузить свои данные в виде html-файла.
2- Я использую библиотеку (rworldmap) из-за моих данных.
Я не знаю, почему вязание (html) не показывает карту в моем файле. Любое предложение?
Формат моего html файла:
---
output:
html_document:
toc: true
code_folding: show
toc_float:
collapsed: false
smooth_scroll: true
number_sections: true
pdf_document: default
word_document: default
---
Начинать:
library(rworldmap)
str(data)
Country: chr "ALBANIA" "ALBANIA" "ALBANIA" "ALBANIA"
var1: Factor w/ 2 levels "0","1": 1 1 1 1 1 1 1 1 1 1
var2: Factor w/ 2 levels "0","1": 1 1 1 1 1 1 1 1 1 1
var3: Factor w/ 2 levels "0","1": 1 2 2 2 2 2 2 2 2 2
Таблица:
Country var1 var2 var3 n Perc
ALBANIA 1 1 1 1 0.075
TURKEY 1 1 1 18 1.35
GERMANY 1 1 0 3 0.22
...
n - частота
Код rworldmap:
dev.new(width=20, height=20)
summary_probn<-count(data, Country,
var1,var3,
var2)
diss_c<- subset(summary_probn, var1 =="1")
#table<-table(diss_c)#frequency
#proptable<- prop.table(table(diss_c))#Cumulative frequency
#cbind(table, proptable)
diss_c$Perc <- diss_c$n / sum(diss_c$n) * 100
diss_cc<- subset(diss_c, var1 =="1")
diss_cj <- subset(diss_cc, var2 =="1")
Данные похожи на следующий вывод:
карта
mapped_data2 <- joinCountryData2Map(diss_cj, joinCode = "NAME",
nameJoinColumn = "Country")
par(mai=c(1,0,0.8,2),xaxs="i",yaxs="i")
mapParams <- mapCountryData(mapped_data2, nameColumnToPlot = "Perc",
catMethod="fixedWidth", addLegend=FALSE, mapTitle="Europe", mapRegion = "europe")
do.call(addMapLegend ,c(mapParams ,legendLabels="all",legendWidth=1,legendIntervals="data", legendMar = 3, labelFontSize = 1))
#do.call( addMapLegend, c(mapParams, legendWidth=1.5, legendMar = 2, legendLabels="all"))
colourPalette <- c('white','green','red','yellow','blue','black')