Контроль толщины шрифта без изменения размера шрифта - PullRequest
Новая
       13

Контроль толщины шрифта без изменения размера шрифта

8 голосов
/ 12 октября 2011

Я ищу способ контроля толщины линий текста, нанесенного на R без изменения размеров символов.Вот пример (без использования R):

varying font weights

Среднее слово имеет толщину в два раза больше вершины, но размеры одинаковы (поэтому масштабирование не произошло).Нижнее слово на самом деле состоит из двух слов: красное слово, наложенное на тяжелое белое слово, для создания цветоделения (особенно полезно для обозначения занятого сюжета).

Вот набор команд, которые я собрал, чтобы попытаться повторить рисунок выше: 

png("font.png",width=1.02, height=1.02, units="in", res=150)
par(ps=10, font=1, bg="light gray", col="black", mai=rep(0.02,4), pin=c(1,1))
plot.new()
box()
text(0.5,0.85,"FONT",cex=1)
text(0.5,0.6,"FONT",cex=2)
text(0.5,0.3,"FONT",cex=2,col="white")
text(0.5,0.3,"FONT",cex=1,col="red")
text(0.5,0.1,"FONT",cex=1, font=2, col="white")
text(0.5,0.1,"FONT",cex=1, font=1, col="red")
dev.off()

, дающий:

replicating in R

Так чтоЭффект аналогичен изменению шрифта на жирный шрифт, но разница в размерах недостаточно велика, чтобы быть заметной при наложении.Страница справки par, похоже, не имеет конкретной настройки для этого.У кого-нибудь есть идеи?

Примечание, изменение size в ggplot2 также не дает желаемого эффекта, в прошлый раз, когда я проверял.

Ответы [ 3 ]

11 голосов
/ 12 октября 2011

Вы можете попробовать добавить несколько версий текста, слегка смещенных по кругу,

yeah

library(grid)
 stextGrob <- function (label, r=0.02, x = unit(0.5, "npc"), y = unit(0.5, "npc"), 
                        just = "centre", hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, 
                        default.units = "npc", name = NULL, gp = gpar(), vp = NULL){

   let <- textGrob("a", gp=gp, vp=vp)
   wlet <- grobWidth(let)
   hlet <- grobHeight(let)

   tg <- textGrob(label=label, x=x, y=y, gp=gpar(col="red"),
                  just = just, hjust = hjust, vjust = vjust, rot = rot,
                  check.overlap = check.overlap, 
                  default.units = default.units)

   tgl <- c(lapply(seq(0, 2*pi, length=36), function(theta){

     textGrob(label=label,x=x+cos(theta)*r*wlet,
              y=y+sin(theta)*r*hlet, gp=gpar(col="white"),
              just = just, hjust = hjust, vjust = vjust, rot = rot,
              check.overlap = check.overlap, 
              default.units = default.units)

     }), list(tg))


   g <- gTree(children=do.call(gList, tgl), vp=vp, name=name, gp=gp)

 }

 grid.stext <- function(...){
   g <- stextGrob(...)
   grid.draw(g)
   invisible(g)
 }

 grid.newpage()
 grid.rect(gp=gpar(fill="grey"))
 grid.stext("Yeah", gp=gpar(cex=4))

В архивах скрывается версия с базовой графикойR-помощь, из которой это вдохновлено.

3 голосов
/ 12 октября 2011

Другой вариант с использованием временного файла postscript, преобразованного в фигуру с помощью grImport,

enter image description here

library(grImport)

cat("%!PS 
     /Times-Roman findfont 
     100 scalefont 
     setfont 
     newpath 
     0 0 moveto 
     (hello) show", file="hello.ps")

PostScriptTrace("hello.ps", "hello.xml")
hello <- readPicture("hello.xml")
grid.rect(gp=gpar(fill="grey"))
grid.picture(hello,use.gc = FALSE, gp=gpar(fill="red", lwd=8, col="white"))

Я думаю, что нечто подобное можно было бы сделать с временной растровой графикойфайл, размытый некоторым алгоритмом обработки изображений и отображаемый в виде растра под текстом.

0 голосов
/ 12 октября 2011

Вы можете попробовать: 

text(...,"FONT", vfont = c('serif','bold'))

Хотя я не уверен, как бы вы сделали третью версию FONT.

...