矩形绘制正确的分辨率

Question

我正在尝试使用画布构建图形。

分辨率1080x1920 直肠（798，1608-1073，1872）

但是在另一种分辨率下，我无法计算出正确的矩形。

for (i in 1:length(pdf_list)){
  print(i)
  document_text <- pdf_text(paste("V:/CodingProject2_FundOverview/", pdf_list[i],sep = "")) %>% 
    strsplit("\r\n") 

  document <- data.frame("company" = gsub(x = pdf_list[i],pattern = ".pdf", replacement = ""), 
              "text" = I(document_text), stringsAsFactors = FALSE, check.names = FALSE)

  colnames(document) <- c("company", "text")
  corpus_raw <- rbind(corpus_raw,document) 
}