Ändern von Schriften in ggplot2

Einmal, änderte ich meine ggplot2 Schrift mit der Verwendung von windowsFonts(Times=windowsFont("TT Times New Roman")) zu ändern. Jetzt kann ich es nicht bekommen.

In versuchen family="" im ggplot2 theme() ich kann nicht scheinen, erzeugen eine änderung in Schriften wie compiliere ich die MWE unten mit verschiedene font-Familien.

library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
        ggtitle("Fuel Efficiency of 32 Cars") +
        xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
        theme(text=element_text(size=16, 
#       family="Comic Sans MS"))
#       family="CM Roman"))
#       family="TT Times New Roman"))
#       family="Sans"))
        family="Serif"))


print(a)
print("Graph should have refreshed")

R ist wieder eine Warnung font family not found in Windows font database, aber es war ein tutorial war ich nach (wenn ich es finden kann werde ich wieder aktualisieren, hier der link) , sagte, dies sei normal und kein problem. Auch, irgendwie funktionierte dies an einer Stelle, weil mein Diagramm einmal einige arial oder helvitica-schriftart. Ich denke, dies war schon immer eine Gegenwart, die Warnung auch während der ersten Zeiten der migration.

UPDATE

wenn ich windowsFonts() meine Ausgabe ist

$serif [1] "TT Times New Roman"

$sans [1] "TT Arial"

$mono [1] "TT Courier New"

Aber das ist nachdem ich lief font_import() also ich kann nur sagen, dass meine Schriften werden nicht gespeichert an der richtigen Stelle. Der code ausgeführt, der die font_import() Anfrage tatsächlich lädt die Bibliotheken mit:

LocalLibraryLocation <- paste0("C:\\Users\\",Sys.getenv("USERNAME"),"\\Documents","\\R\\win-library\\3.2");
    .libPaths(c(LocalLibraryLocation, .libPaths()))

Ist dies eine windows-spezifische Frage-und-Antwort? Hat jemand generalisieren wollen, auf zu Linux?
Auch, windowsFonts verschwand aus grDevices nach 3.4.1. Den code hier ein Update benötigt.
siehe dieser und dieser. Sie müssen nur geben Sie den richtigen Pfad in Linux

InformationsquelleAutor EngBIRD | 2015-12-30

71

Sie verpasste eine Initialisierungs-Schritt, denke ich.

Können Sie sehen, welche Schriftarten, die Sie zur Verfügung haben, mit dem Befehl windowsFonts(). Zum Beispiel die mine sieht aus wie dieses, als ich begann, mich auf diese:
```
> windowsFonts()
$serif
[1] "TT Times New Roman"

$sans
[1] "TT Arial"

$mono
[1] "TT Courier New"
```
Nach der Installation des Pakets extraFont und läuft font_import wie diese (es dauerte etwa 5 Minuten):
```
library(extrafont)
font_import()
loadfonts(device = "win")
```
Hatte ich viele mehr verfügbar - wohl zu viele, sicherlich zu viele, um Sie hier aufzulisten.

Dann habe ich versucht den code:
```
library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(size=16,  family="Comic Sans MS"))
print(a)
```
nachgeben:

Update:

Finden Sie den Namen der schriftart, die Sie für die family parameter der element_text mit dem folgenden code-snippet:
```
> names(wf[wf=="TT Times New Roman"])
[1] "serif"
```
Dann:
```
library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(size=16,  family="serif"))
print(a)
```
ergibt:

Danke für die Hilfe, auf halbem Weg gibt. Ich kann wechseln nun zwischen mono||sans (diese sehen nicht anders bisher) und serif``, but not the actually name like "TT Times New Roman", but additionally, I not sure that my loadFonts " war erfolgreich. Wenn ich Anrufe fonts() ich habe eine Liste von nahezu 300 Schriften, aber meine Vermutung ist, Sie nicht installiert zu lokalen Umfeld zugänglich zu machen, um das windows-Gerät. Ich bin nicht sicher, ob das noch Sinn macht, aber ich habe versucht, ein update zu meiner ursprünglichen Frage mit den snippets, die helfen könnten. Nochmals vielen Dank!
Hinzugefügt einige weitere code eine Antwort zu geben.
Vielen Dank für diesen Namen-snippet-update, es sieht sehr hilfsbereit, wie hat sich Ihre comic sans Ms Beispiel erzeugen den richtigen Auftritt, wenn die Familie ist die einzige Zeichenfolge my-installation erkennt.
Glück. In dieser Schrift (und viele andere), der name der Familie ist der gleiche wie der Wert Familie. So wf[which(wf=="Comic Sans MS")] Erträge $``Comic Sans MS`` [1] "Comic Sans MS"
Downvoted für die comic sans.

InformationsquelleAutor Mike Wise

Andere Möglichkeit ist die Verwendung showtext Paket unterstützt mehr Typen von Schriftarten (TrueType, OpenType, Type 1-Schriften, etc.) und mehr Grafik-Geräte, und vermeidet die Verwendung von externer software wie Ghostscript.

# install.packages('showtext', dependencies = TRUE)
library(showtext)

Importieren, Google Fonts

# https://fonts.google.com/featured/Superfamilies
font_add_google("Montserrat", "Montserrat")
font_add_google("Roboto", "Roboto")

Laden Sie die schriftart aus dem aktuellen Suchpfad in showtext

# Check the current search path for fonts
font_paths()    
#> [1] "C:\\Windows\\Fonts"

# List available font files in the search path
font_files()    
#>   [1] "AcadEref.ttf"                                
#>   [2] "AGENCYB.TTF"                           
#> [428] "pala.ttf"                                    
#> [429] "palab.ttf"                                   
#> [430] "palabi.ttf"                                  
#> [431] "palai.ttf"

# syntax: font_add(family = "<family_name>", regular = "/path/to/font/file")
font_add("Palatino", "pala.ttf")

font_families()
#> [1] "sans"         "serif"        "mono"         "wqy-microhei"
#> [5] "Montserrat"   "Roboto"       "Palatino"

## automatically use showtext for new devices
showtext_auto()

Handlung: benötigen Sie zum öffnen der Windows graphics device als showtext funktioniert nicht gut mit RStudio built-in graphics device

# https://github.com/yixuan/showtext/issues/7
# https://journal.r-project.org/archive/2015-1/qiu.pdf
windows()

myFont1 <- "Montserrat"
myFont2 <- "Roboto"
myFont3 <- "Palatino"

library(ggplot2)

a <- ggplot(mtcars, aes(x = wt, y = mpg)) + 
  geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text = element_text(size = 16, family = myFont1)) +
  annotate("text", 4, 30, label = 'Palatino Linotype',
           family = myFont3, size = 10) +
  annotate("text", 1, 11, label = 'Roboto', hjust = 0,
           family = myFont2, size = 10) 

## On-screen device
print(a)

Ändern von Schriften in ggplot2

## Save to PNG 
ggsave("plot_showtext.png", plot = a, 
       type = 'cairo',
       width = 6, height = 6, dpi = 150)  

## Save to PDF
ggsave("plot_showtext.pdf", plot = a, 
       device = cairo_pdf,
       width = 6, height = 6, dpi = 150)  

## turn showtext off if no longer needed
showtext_auto(FALSE)

Vielen Dank, ich freue mich, zu versuchen, diese aus!
Meine Freude !!!
tausend mal danke... das Paket macht es super einfach, um a) zu überprüfen, welche Schrift-Familien, die Sie zur Verfügung haben für ggplot von font_families() - b) achten Sie auf die schriftart-Datei, die Namen von font_files() - c) hinzufügen der schriftart-Datei eine schriftart-Familie, die von font_add(Familie, font_file_name). Genial!!!
froh, dass ich helfen konnte 🙂
wichtig: Sie müssen alle installieren Sie die XQuartz-Paket von xquartz.org erste, oder es wird ein nicht näher bezeichneten Fehler zu versuchen, laden Sie die Bibliothek.

InformationsquelleAutor Tung

3

Spät zur party, aber vielleicht von Interesse für Leute, die das hinzufügen von benutzerdefinierten Schriftarten, um Ihre ggplots innerhalb einer shiny app auf shinyapps.io.

Können Sie:
1. Platz benutzerdefinierte schriftart in www Verzeichnis: z.B. IndieFlower.ttf aus hier
2. Führen Sie die Schritte aus hier
Dies führt zu der folgenden oberen Abschnitt im inneren der app.R Datei:
```
dir.create('~/.fonts')
file.copy("www/IndieFlower.ttf", "~/.fonts")
system('fc-cache -f ~/.fonts')
```
Einer vollständigen Beispiel-app finden hier.

InformationsquelleAutor symbolrush

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.

Update: