Как изменить тип шрифта метки по умолчанию на курсив в Radarchart (пакет fmsb)?

Я создал лепестковую диаграмму, показывающую изменение культурных индексов (КИ) ряда видов в зависимости от местоположения. Однако, поскольку названия видов должны быть написаны курсивом или подчеркнуты, мне нужно изменить тип шрифта по умолчанию, используемый для элементов этикетки. Я много дней искал в Интернете, как это сделать, но безуспешно. Кажется, что вопрос задавался раньше но нет содержательных ответов. Я был бы признателен за любую помощь, пожалуйста. Вот мои данные, и это код:

library(fmsb)
colors_border=c( rgb(0.2,0.5,0.5,0.9), rgb(0.8,0.2,0.5,0.9) , rgb(0.7,0.5,0.1,0.9))
colors_in=c(rgb(0.2,0.5,0.5,0.3), rgb(0.8,0.2,0.5,0.3) , rgb(0.7,0.5,0.1,0.3))
radarchart( data  , axistype=1 , pcol=colors_border, pfcol=colors_in, plwd=2.5, plty=1, cglcol="grey", cglty=1, axislabcol="grey40", caxislabels=seq(0,1,0.25), cglwd=0.8, calcex = 0.8, vlabels = c("A. pubescens", "A. alboviolaceum", "A. angustifolium", "A. melegueta", "C. anisata", "C. giganteus", "L. chevalieri", "M. myristica", "P. guineense", "S. longipedunculata",  "T. sanguinea", "U. chamae", "X. aethiopica", "Z. zanthoxyloides"), vlcex=0.8)
legend(x=1.3, y=1.2, legend = rownames(data[-c(1,2),]), bty = "n", pch=20, col=colors_border, text.col = "grey25", cex=0.8, pt.cex=1.5)

radarchart() вывод:

radarchart() вывод


r fonts label radar-chart italic
person Médard Kafoutchoni    schedule 03.02.2017    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Я наконец нашел решение. Все, что нам нужно, это установить для параметров печати семейства и шрифта нужные значения перед вызовом radarchart(). Это можно сделать через par().

Установка семейства шрифтов по умолчанию

op ‹- par(family = "Times New Roman", font=3) colors_border=c( rgb(0.2,0.5,0.5,0.9), rgb(0.8,0.2,0.5,0.9), rgb(0.7,0.5,0.1) ,0.9)) colors_in=c(rgb(0.2,0.5,0.5,0.3), rgb(0.8,0.2,0.5,0.3), rgb(0.7,0.5,0.1,0.3))

Построение радиолокационной диаграммы

Radarchart(данные, axistype=1,pcol=colors_border, pfcol=colors_in, plwd=2.5, plty=1, cglcol="grey", cglty=1, axislabcol="grey40", caxislabels=seq(0,1,0.25) , cglwd=0,8, calcex=0,8, vlcex=0,8, vlabels=c("A. pubescens", "A. alboviolaceum", "A. angustifolium", "A. melegueta", "C. anisata", "C. giganteus", "L. chevalieri", "M. tenuifolia", "P. guineense", "S. lonipedunculata", "T. sanguinea", "U. chamae", "X. aethiopica", "Z. zanthoxyloides" ))

сбросить параметры построения

пар(оп)

Приведенный выше код создает: Изображение

Источник: Как изменить семейство шрифтов в легенда в R-сюжете?

person Médard Kafoutchoni    schedule 06.10.2017