如何在R语言中跨平台获取RAM使用情况（总、已用、占比等）

下面提供几种兼容Windows和Unix（Linux/macOS）平台的RAM使用情况获取方案，涵盖纯原生实现、依赖Python的简化方案以及专用R包方案：

一、纯R原生跨平台实现（无额外依赖） #

这个方案通过自动识别操作系统，调用对应系统命令获取内存数据，无需安装任何额外包：

get_memory_usage <- function() {
  os_type <- Sys.info()[["sysname"]]
  
  if (os_type == "Windows") {
    # Windows平台：调用wmic命令获取内存信息
    total_raw <- system("wmic ComputerSystem get TotalPhysicalMemory", intern = TRUE)
    total_mem_gb <- as.numeric(gsub("\\D", "", total_raw[2])) / (1024^2)  # 转换为GB
    
    free_raw <- system("wmic OS get FreePhysicalMemory", intern = TRUE)
    free_mem_gb <- as.numeric(gsub("\\D", "", free_raw[2])) / (1024^2)  # 转换为GB
  } else if (os_type %in% c("Linux", "Darwin")) {
    if (os_type == "Darwin" && !nzchar(Sys.which("free"))) {
      # macOS未安装free命令时，用sysctl获取
      sysctl_out <- system("sysctl hw.memsize vm.page_free_count vm.page_size", intern = TRUE)
      total_bytes <- as.numeric(gsub("hw.memsize: ", "", sysctl_out[1]))
      total_mem_gb <- total_bytes / (1024^3)
      
      page_count <- as.numeric(gsub("vm.page_free_count: ", "", sysctl_out[2]))
      page_size <- as.numeric(gsub("vm.page_size: ", "", sysctl_out[3]))
      free_mem_gb <- (page_count * page_size) / (1024^3)
    } else {
      # Linux/macOS（已安装free命令）：调用free命令
      free_out <- system("free -m", intern = TRUE)
      mem_df <- read.table(text = free_out[2], header = TRUE)
      total_mem_gb <- mem_df$total / 1024
      # 空闲内存包含缓存和缓冲区，更贴近实际可用空间
      free_mem_gb <- (mem_df$free + mem_df$buffers + mem_df$cached) / 1024
    }
  } else {
    stop("当前操作系统不支持")
  }
  
  used_mem_gb <- total_mem_gb - free_mem_gb
  usage_percent <- round((used_mem_gb / total_mem_gb) * 100, 2)
  
  return(list(
    总内存_GB = total_mem_gb,
    空闲内存_GB = free_mem_gb,
    已用内存_GB = used_mem_gb,
    使用率_百分比 = usage_percent
  ))
}

# 调用示例
mem_stats <- get_memory_usage()
print(mem_stats)

说明：

• Windows下用wmic命令获取原始内存数据，通过正则提取数字后转换为GB单位
• Unix平台优先用free命令（macOS需先通过brew install procps-ng安装），未安装则用sysctl命令获取
• 返回结果包含总内存、空闲内存、已用内存和使用率，格式统一

二、借助reticulate调用Python的psutil库（依赖Python环境） #

如果你的环境已经有Python，这个方案实现最简单，psutil会自动适配所有平台：

library(reticulate)

# 若未安装psutil，先执行下面的命令（仅需一次）
# py_install("psutil")

psutil <- import("psutil")
mem_info <- psutil$virtual_memory()

mem_stats <- list(
  总内存_GB = mem_info$total / (1024^3),
  空闲内存_GB = mem_info$free / (1024^3),
  已用内存_GB = mem_info$used / (1024^3),
  使用率_百分比 = mem_info$percent
)

print(mem_stats)

说明：

• 优点：代码简洁，无需手动判断平台，psutil处理了所有系统差异
• 缺点：必须依赖Python环境和psutil库，适合已有Python环境的场景

三、使用R专用包简化操作 #

1. memuse包（专为内存操作设计） #

memuse包提供了统一的内存信息获取接口，自动适配跨平台：

install.packages("memuse")
library(memuse)

# 获取系统内存信息
sys_mem <- Sys.meminfo()

# 转换为GB格式并计算使用率
total_mem_gb <- as.numeric(sys_mem$total) / (1024^3)
free_mem_gb <- as.numeric(sys_mem$free) / (1024^3)
used_mem_gb <- total_mem_gb - free_mem_gb
usage_percent <- round((used_mem_gb / total_mem_gb) * 100, 2)

# 输出易读格式
cat("总内存：", mu(sys_mem$total), "\n")
cat("空闲内存：", mu(sys_mem$free), "\n")
cat("使用率：", usage_percent, "%\n")

2. processx包（更安全的系统命令调用） #

processx的run()函数比原生system()更稳定，能更好处理命令输出的编码和格式问题：

install.packages("processx")
library(processx)

get_mem_stats <- function() {
  os_type <- Sys.info()[["sysname"]]
  
  if (os_type == "Windows") {
    total_res <- run("wmic", args = c("ComputerSystem", "get", "TotalPhysicalMemory"), stdout = TRUE)
    total_mem_gb <- as.numeric(gsub("\\D", "", strsplit(total_res$stdout, "\n")[[1]][2])) / (1024^2)
    
    free_res <- run("wmic", args = c("OS", "get", "FreePhysicalMemory"), stdout = TRUE)
    free_mem_gb <- as.numeric(gsub("\\D", "", strsplit(free_res$stdout, "\n")[[1]][2])) / (1024^2)
  } else if (os_type %in% c("Linux", "Darwin")) {
    if (os_type == "Darwin" && !nzchar(Sys.which("free"))) {
      res <- run("sysctl", args = c("hw.memsize", "vm.page_free_count", "vm.page_size"), stdout = TRUE)
      lines <- strsplit(res$stdout, "\n")[[1]]
      total_mem_gb <- as.numeric(gsub("hw.memsize: ", "", lines[1])) / (1024^3)
      page_size <- as.numeric(gsub("vm.page_size: ", "", lines[3]))
      free_mem_gb <- (as.numeric(gsub("vm.page_free_count: ", "", lines[2])) * page_size) / (1024^3)
    } else {
      res <- run("free", args = c("-m"), stdout = TRUE)
      mem_df <- read.table(text = strsplit(res$stdout, "\n")[[1]][2], header = TRUE)
      total_mem_gb <- mem_df$total / 1024
      free_mem_gb <- (mem_df$free + mem_df$buffers + mem_df$cached) / 1024
    }
  } else {
    stop("当前操作系统不支持")
  }
  
  return(list(
    总内存_GB = total_mem_gb,
    空闲内存_GB = free_mem_gb,
    已用内存_GB = total_mem_gb - free_mem_gb,
    使用率_百分比 = round((total_mem_gb - free_mem_gb)/total_mem_gb*100,2)
  ))
}

print(get_mem_stats())

内容的提问来源于stack exchange，提问作者Masoud