Histogram na kratownicy

Question

Ponieważ hist() podstawy R nie zgłasza procentów (i freq = FALSE) również nie pomaga, zwróciłem się do lattice.

histogram(rnorm(10000)) 

Proszę mi pomóc z następujących czynności:

1. Jak mogę pozbyć polu arround działki?
2. W jaki sposób mogę osobno zdefiniować wierzchołek etykiety X/Y i oś X/Y?
3. Jak mogę podać niestandardowe nazwy dla osi X i Y?

Answer 1

To powinno Ci zacząć:

library(lattice) 
histogram(rnorm(10000),  
    main=list(
     label="Main plot title", 
     cex=1.5), 
    xlab=list(
     label="Custom x-axis label", 
     cex=0.75), 
    ylab=list(
     label="My very own y-axis label", 
     cex=1.2), 
    scales=list(cex=0.5), 
    par.settings = list(axis.line = list(col = 0)) 
) 

Answer 2

Albo, jeśli chcesz trzymać hist(), można go modyfikować nieznacznie, jak pokazano poniżej.

Ta funkcja raz wywołuje hist(), aby uzyskać wartość zwracaną, która jest obiektem zawierającym różnego rodzaju przydatne informacje o strukturze histogramu. Następnie wykorzystuje (a) szerokość pojemników i (b) gęstość dla każdego słupka, aby obliczyć (c) procent obserwacji spoczywających na każdym takcie.

histPercent <- function(x, ...) { 
    H <- hist(x, plot = FALSE) 
    H$density <- with(H, 100 * density* diff(breaks)[1]) 
    plot(H, freq = FALSE, ...) 
} 

histPercent(rnorm(10000), col="dodgerblue", las=1, 
      xlab="Echs-axis", ylab="Why-axis")