в файле aspx вы должны поместить первую строку следующим образом:
<%@ Page EnableEventValidation="false" %>
, если у вас уже есть что-то вроде <%@ Page
, поэтому просто добавьте rest => EnableEventValidation="false" %>
Я рекомендую не делать этого.
Этот должен работать, но вам нужно будет поиграть с аргументом line
, чтобы получить его в порядке:
par(mfrow = c(2, 2))
plot(iris$Petal.Length, iris$Petal.Width)
plot(iris$Sepal.Length, iris$Petal.Width)
plot(iris$Sepal.Width, iris$Petal.Width)
plot(iris$Sepal.Length, iris$Petal.Width)
mtext("My 'Title' in a strange place", side = 3, line = -21, outer = TRUE)
[/g1]
mtext
означает «текст поля». side = 3
говорит, чтобы поместить его в верхний край. line = -21
говорит, что он компенсирует размещение на 21 строку. outer = TRUE
говорит, что нормально использовать область внешнего поля.
Чтобы добавить еще один «заголовок» вверху, вы можете добавить его, используя, скажем, mtext("My 'Title' in a strange place", side = 3, line = -2, outer = TRUE)
Вот еще один способ сделать это, используя функцию line2user
из этой записи .
par(mfrow = c(2, 2))
plot(runif(100))
plot(runif(100))
text(line2user(line=mean(par('mar')[c(2, 4)]), side=2),
line2user(line=2, side=3), 'First title', xpd=NA, cex=2, font=2)
plot(runif(100))
plot(runif(100))
text(line2user(line=mean(par('mar')[c(2, 4)]), side=2),
line2user(line=2, side=3), 'Second title', xpd=NA, cex=2, font=2)
[/g1]
Здесь название расположено на 2 строки выше верхнего края графика, как показано в line2user(2, 3)
. Мы центрируем его, смещая его относительно 2-го и 4-го графиков на половину объединенной ширины левого и правого полей, т. Е. mean(par('mar')[c(2, 4)])
.
line2user
выражает смещение ( количество строк) от оси в пользовательских координатах и определяется как:
line2user <- function(line, side) {
lh <- par('cin')[2] * par('cex') * par('lheight')
x_off <- diff(grconvertX(0:1, 'inches', 'user'))
y_off <- diff(grconvertY(0:1, 'inches', 'user'))
switch(side,
`1` = par('usr')[3] - line * y_off * lh,
`2` = par('usr')[1] - line * x_off * lh,
`3` = par('usr')[4] + line * y_off * lh,
`4` = par('usr')[2] + line * x_off * lh,
stop("side must be 1, 2, 3, or 4", call.=FALSE))
}
Вы можете использовать функцию layout()
и установить две области графика, которые встречаются в обоих столбцах (см. повторяющиеся числа 1 и 3 в matrix()
). Затем я использовал plot.new()
и text()
для установки названий. Вы можете играть с полями и высотами, чтобы получить лучшее представление.
x<-1:10
par(mar=c(2.5,2.5,1,1))
layout(matrix(c(1,2,3,4,1,5,3,6),ncol=2),heights=c(1,3,1,3))
plot.new()
text(0.5,0.5,"First title",cex=2,font=2)
plot(x)
plot.new()
text(0.5,0.5,"Second title",cex=2,font=2)
hist(x)
boxplot(x)
barplot(x)
[/g0]
То же самое, но выделено полужирным шрифтом, можно сделать с помощью title(...)
с теми же аргументами, что и выше:
title("My 'Title' in a strange place", side = 3, line = -21, outer = TRUE)