trekfont下载trekfont源代码下载

trekfont

字体下载

trekfont 0.9.6 release

下载

Trekfont

此软件包包含True类型和打开类型的星际迷航字体。

安装

与Cran一起安装trekfont

install.packages( " trekfont " )

使用GitHub安装开发版本

 # install.packages("remotes")
remotes :: install_github( " leonawicz/trekfont " )

例子

trekfonts包含一个数据集， trekfonts ，这只是所有107个可用字体文件的字符向量。

可以使用Sysfonts软件包安装字体文件。

以下是一些示例，利用sysfonts和showtext 。

 # install.packages("trekfont")
library( showtext )
font <- c( " Khan " , " StarNext " , " FederationDS9Title " , " Federation " , " Klingon " , " ModernVulcan " , " TNGcast " , " FederationStarfleet " )
path <- system.file(paste0( " fonts/ " , font , " .ttf " ), package = " trekfont " )
for ( i in seq_along( font )) font_add( font [ i ], path [ i ])
font_families()
showtext_auto()

使用基本图形…

 y <- seq( 0.1 , 0.9 , length.out = 7 )
txt <- " The Quick Brown Fox Jumps Over The Lazy Dog "
plot( 0 , 0 , type = " n " , ylim = c( 0 , 1 ), main = " trekfont package font sample " , family = font [ 8 ])
for ( i in 1 : 7 ) text( 0 , y [ i ], txt , family = font [ i ])

或ggplot2…

library( ggplot2 )
g <- ggplot() + theme_gray( base_family = font [ 8 ]) + ggtitle( " trekfont package font sample " )
for ( i in 1 : 7 ) g <- g + annotate( " text " , 0 , y [ i ], label = txt , family = font [ i ], size = 12.5 )
g