# The data
x <- seq(0,2*pi,0.1)
y <- sin(x)

# Plot the data, no axes
plot(x,
     y,
     axes=FALSE)

# Draw a box
box()

# Add (modified) axes to the plot
axis(2,
     las=2)
axis(1,
     las=0)