Печать таблицы LaTeX непосредственно в изображение (PNG или другое)

Существуют различные сценарии преобразования LaTeX в изображение, предназначенные для таких вещей, как преобразование уравнений в изображения для размещения на веб-страницах.

Если вы можете найти один из них (возможно, dvipng?), то вы можете достаточно легко перейти от таблицы в R к LaTeX, а затем от LaTeX к png.

Если у вас есть dvipng, вы можете использовать латексные преобразования Hmisc, чтобы сделать более аккуратную функцию для этого:

dvipng.dvi <-
  function (object, file, ...) 
{
  cmd <- if (missing(file)) 
    paste("dvipng -T tight", shQuote(object$file))
  else paste("dvipng -T tight", "-o", file, shQuote(object$file))
  invisible(sys(cmd))
}

И тогда вы можете сделать:

> tt   # here is a table
   y
x    1  2  3
  1  9 12 11
  2 18  9 10
  3 10  7 14
> dvipng.dvi(dvi.latex(latex(tt)))

И это создаст файл png со случайным именем в рабочем каталоге. Параметр -T закрывает все пробелы вокруг него.

Это примерно так же прямо, как я могу думать, что это возможно.

Linux или Windows, или Mac, или Atari?

xtable предоставляет возможность вывода либо латексной, либо html-разметки. Вы можете вставить html напрямую.

Сказав, что я тоже хотел бы иметь возможность напрямую переходить от вязания или плетения к png или svg. Я пытался сделать это только на прошлой неделе. Я создаю инфографику inkscape (svg) и искал способ вставить связанное изображение таблицы, которая обновляется с помощью кода R.

В начальном тестировании я объединил использование кода xtable и Spacedman (+1), чтобы получить хороший вывод png (Ubuntu). Опция -D позволяет управлять разрешением.

Я ищу конвертер dvi-> svg, который больше похож на то, что мне нужно. http://dvisvg.sourceforge.net/

dvipng.dvi <- function (object, file, res=600)
{
    if (missing(file)){
        invisible(sys(
                paste("dvipng -T tight", "-D", res, shQuote(object$file)))
            )
}
    else{
        invisible(sys(
                paste("dvipng -T tight", "-D", res, "-o", file, shQuote(object$file)))
            )
    }
}

tt <- head(iris)

dvipng.dvi(dvi.latex(latex(xtable(tt))), file='iris.png')

Благодаря ответу Spaceman я смог найти решение, которое не полагается на latex из пакета Hmisc, поскольку latex вызывал у меня некоторые проблемы с путями:

table.png <- function(obj, name) { 
first <- name
name <- paste(name,".tex",sep="")
sink(file=name)
cat('
\\documentclass{report}
\\usepackage[paperwidth=5.5in,paperheight=7in,noheadfoot,margin=0in]{geometry}
\\begin{document}\\pagestyle{empty}
')
print(xtable(obj))
cat('
\\end{document}
')
sink()
texi2dvi(file=name)
cmd <- paste("dvipng -T tight", shQuote(paste(first,".dvi",sep="")))
invisible(sys(cmd))
cleaner <- c(".tex",".aux",".log",".dvi")
invisible(file.remove(paste(first,cleaner,sep="")))
}

Пакет kableExtra позволяет создавать красивые и настраиваемые таблицы с помощью LaTeX или HTML. Он также имеет функцию экспорта таких отдельных таблиц, например, в PNG или PDF через веб-шот. Вот пример:

library(kableExtra)
knitr::kable(mtcars[1:6, 1:5], "latex", booktabs = TRUE, linesep = "") %>% 
    kable_styling(full_width = TRUE, font_size = 12) %>% 
    column_spec(1, width = "4cm") %>% 
    save_kable(file = "table.png")

У меня нет хорошего ответа, который включает использование R, но если вы были в отчаянии, я полагаю, что «экран печати» и копия в Paint или другую подобную программу и, наконец, сохранение, по крайней мере, даст вам изображение в формате для хранения. .

Таким образом я создал «пошаговую» пользовательскую документацию, когда другие варианты были недоступны.