Usuń wartości osi wykresu


153

Zastanawiałem się tylko, czy istnieje sposób na pozbycie się wartości osi, odpowiednio osi X lub Y, na wykresie r-plot.

Wiem, że axes = falsepozbędę się całej osi, ale chciałbym tylko pozbyć się numeracji.

Odpowiedzi:


195

Usuń numerację na osi X lub osi Y:

plot(1:10, xaxt='n')
plot(1:10, yaxt='n')

Jeśli chcesz również usunąć etykiety:

plot(1:10, xaxt='n', ann=FALSE)
plot(1:10, yaxt='n', ann=FALSE)

3
ale pamiętaj, że te usuwają całą oś ... nic tam nie będzie, chyba że użyjesz ustawienia bty, które umieści linie tam, gdzie są twoje osie. Wartością domyślną jest bty = 'o', więc zwykle wokół wykresu pojawi się ramka, w której znajdowałyby się osie. Ale z bty = 'n' byłyby tylko punkty unoszące się w przestrzeni.
John

66

Używając grafiki podstawowej, standardowym sposobem jest użycie osi = FALSE, a następnie utworzenie własnych osi za pomocą Axis (lub osi). Na przykład,

x <- 1:20
y <- runif(20)
plot(x, y, axes=FALSE, frame.plot=TRUE)
Axis(side=1, labels=FALSE)
Axis(side=2, labels=FALSE)

Odpowiednik sieci to

library(lattice)
xyplot(y ~ x, scales=list(alternating=0))

Plus jeden za wyjaśnienie kratownicy!
Zhubarb

19

@Richie Cotton ma powyżej całkiem dobrą odpowiedź. Mogę tylko dodać, że ta strona zawiera kilka przykładów. Spróbuj wykonać następujące czynności:

x <- 1:20
y <- runif(20)
plot(x,y,xaxt = "n")
axis(side = 1, at = x, labels = FALSE, tck = -0.01)

10

możesz również umieścić etykiety wewnątrz działki:

plot(spline(sub$day, sub$counts), type ='l', labels = FALSE)

otrzymasz ostrzeżenie. Myślę, że dzieje się tak dlatego, że etykiety są w rzeczywistości parametrem przekazywanym do podprogramu, który działa na wykresie (osie?). ostrzeżenie pojawi się, ponieważ nie jest to bezpośrednio parametr funkcji plot.


1

Zmień axis_colour, aby pasował do tła, a jeśli modyfikujesz tło dynamicznie, będziesz musiał jednocześnie zaktualizować axis_colour. * Udostępnione zdjęcie przedstawia przykład wykresu / wykresu przy użyciu próbnych danych ()

### Main Plotting Function ###
plotXY <- function(time, value){

    ### Plot Style Settings ###

    ### default bg is white, set it the same as the axis-colour 
    background <- "white"

    ### default col.axis is black, set it the same as the background to match
    axis_colour <- "white"

    plot_title <- "Graph it!"
    xlabel <- "Time"
    ylabel <- "Value"
    label_colour <- "black"
    label_scale <- 2
    axis_scale <- 2
    symbol_scale <- 2
    title_scale <- 2
    subtitle_scale <- 2
    # point style 16 is a black dot
    point <- 16 
    # p - points, l - line, b - both
    plot_type <- "b"

    plot(time, value, main=plot_title, cex=symbol_scale, cex.lab=label_scale, cex.axis=axis_scale, cex.main=title_scale, cex.sub=subtitle_scale, xlab=xlabel, ylab=ylabel, col.lab=label_colour, col.axis=axis_colour, bg=background, pch=point, type=plot_type)
}

plotXY(time, value)

wprowadź opis obrazu tutaj

Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.