Arhn - архитектура программирования

Добавление небольшой таблицы в базовую графическую диаграмму с несколькими графиками

У меня есть диаграмма с несколькими сюжетами:

layout(matrix(c(1:4), 2, 2, byrow = FALSE),    widths=c(1,1),  heights=c(1,1))

plot(1:6)
plot(2:7)
plot(3:8)

Теперь я хочу добавить небольшую таблицу в нижнем нижнем углу. Я старался:

 library(gridExtra)
 Table1<- data.frame( a=1:6,b=2:7,c=3:8)
 tt <- ttheme_default(colhead=list(fg_params = list(parse=TRUE)))
 tbl <- tableGrob(Table1, rows=NULL, theme=tt)
 grid.arrange( tbl)

но это не входит в нижний угол, а создает новый сюжет. Я хотел бы решить эту проблему, используя базовую графику plot(), а не ggplot().

Спасибо за помощь.

r plot
04.01.2017

Ответы:


1

С помощью plotrix вы можете изменить свой код следующим образом:

library(plotrix)
Table1<- data.frame( a=1:6,b=2:7,c=3:8)
layout(matrix(c(1:4), 2, 2, byrow = FALSE),    widths=c(1,1),  heights=c(1,1))
plot(1:6)
plot(2:7)
plot(3:8)
plot.new()
addtable2plot(0,0,Table1, 
              xpad=6, ypad=2,
              bty='o',
              display.rownames = TRUE, 
              hlines = TRUE,
              vlines = TRUE, 
              title = "The table")

введите здесь описание изображения

04.01.2017

2

Чтобы рассматривать таблицу как график, попробуйте следующее:

library(plotrix)

fm1 <- c(0.40, 0.25, 0.25, 0.1)
fm2 <- c(0.1,   0.15, 0.35,  0.4)
comp <- data.frame(components = c("a", "b", "c", "d"), fm1=fm1, fm2=fm2)

par(mfrow = c(1,2))

### Table 
plot(c(0,2), c(0,2), type="n", axes=FALSE, xlab="", ylab="")
addtable2plot(0,-1,comp,bty="o",display.rownames=FALSE,hlines=TRUE,title="random title", cex=1.5)

### Plot 
plot(1:10)
04.01.2017
Новые материалы
Коллекции публикаций по глубокому обучению
Последние пару месяцев я создавал коллекции последних академических публикаций по различным подполям глубокого обучения в моем блоге https://amundtveit.com - эта публикация дает обзор 25..
Представляем: Pepita
Фреймворк JavaScript с открытым исходным кодом Я знаю, что недостатка в фреймворках JavaScript нет. Но я просто не мог остановиться. Я хотел написать что-то сам, со своими собственными..
Советы по коду Laravel #2
1-) Найти // You can specify the columns you need // in when you use the find method on a model User::find(‘id’, [‘email’,’name’]); // You can increment or decrement // a field in..
Работа с временными рядами спутниковых изображений, часть 3 (аналитика данных)
Анализ временных рядов спутниковых изображений для данных наблюдений за большой Землей (arXiv) Автор: Рольф Симоэс , Жильберто Камара , Жильберто Кейрос , Фелипе Соуза , Педро Р. Андраде ,..
3 способа решить квадратное уравнение (3-й мой любимый) -
1. Методом факторизации — 2. Используя квадратичную формулу — 3. Заполнив квадрат — Давайте поймем это, решив это простое уравнение: Мы пытаемся сделать LHS,..
Создание VR-миров с A-Frame
Виртуальная реальность (и дополненная реальность) стали главными модными терминами в образовательных технологиях. С недорогими VR-гарнитурами, такими как Google Cardboard , и использованием..
Демистификация рекурсии
КОДЕКС Демистификация рекурсии Упрощенная концепция ошеломляющей О чем весь этот шум? Рекурсия, кажется, единственная тема, от которой у каждого начинающего студента-информатика..