如何通过脚本自动转置Org文件中导入的表格？

我用以下Emacs Lisp代码从txt文件导入表格：

(org-table-import "ttt.out" nil)

ttt.out文件内容如下：

#Cluster   Frames   Rep RepScore   Rep RepScore
       0      23      2      0.6     6      0.4 
       1      10      5      0.1     3      0.5
       2       5      4      0.4     5      0.6
       3       4      1      0.4     2      0.6

我需要将其转置为如下格式：

| #Cluster |   0 |   1 |   2 |   3 |
| Frames   |  23 |  10 |   5 |   4 |
| Rep      |   2 |   5 |   4 |   1 |
| RepScore | 0.6 | 0.1 | 0.4 | 0.4 |
| Rep      |   6 |   3 |   5 |   2 |
| RepScore | 0.4 | 0.5 | 0.6 | 0.6 |

但org-table-transpose-table-at-point无法在脚本中直接使用，请问：

1. 有没有内置函数可以简化转置的脚本？
2. 我尝试了这段基于org-babel的代码，但没有生效，这是为什么？

(apply #'mapcar* #'list (org-table-import "ttt.out" nil))

为什么apply #'mapcar* #'list (org-table-import ...)不生效？ #

org-table-import的核心作用是将文件内容插入当前缓冲区并格式化为Org表格，它的返回值并非表格的列表结构，而是nil（操作成功的标记）。你传递给mapcar*的不是实际的表格数据，而是空值，因此代码无法生效。

如何用内置函数实现脚本化表格转置？ #

要在脚本中完成转置，需要先将表格内容解析为列表结构，转置后再格式化为Org表格格式，有两种可行方案：

方案1：手动解析+转置 #

直接读取文件内容并处理为二维列表，再转置格式化：

(defun my-org-transpose-table-from-file (file)
  (let* ((raw-lines (with-temp-buffer
                      (insert-file-contents file)
                      (split-string (buffer-string) "\n" t)))
         (table-rows (mapcar (lambda (line) (split-string line "\\s-+" t)) raw-lines))
         (transposed-rows (apply #'mapcar* #'list table-rows)))
    ;; 格式化为Org表格字符串
    (mapconcat (lambda (row)
                 (concat "| " (mapconcat #'identity row " | ") " |"))
               transposed-rows
               "\n")))

;; 使用示例：输出转置后的表格
(message "%s" (my-org-transpose-table-from-file "ttt.out"))

• 用with-temp-buffer读取文件，按行分割后将每行拆分为单元格列表，得到原始表格的二维结构；
• mapcar*是mapcar的多参数版本，可直接转置二维列表；
• 最后将转置后的列表拼接为标准Org表格格式。

方案2：利用Org原生表格函数 #

借助临时缓冲区让org-table-transpose-table-at-point正常工作：

(defun my-org-transpose-table-from-file-alt (file)
  (with-temp-buffer
    (org-table-import file nil)
    (org-table-transpose-table-at-point)
    (buffer-substring-no-properties (point-min) (point-max))))

;; 使用示例：输出转置后的表格
(message "%s" (my-org-transpose-table-from-file-alt "ttt.out"))

with-temp-buffer提供了一个临时环境，满足org-table-transpose-table-at-point对当前缓冲区存在表格的要求，直接复用Org的原生转置逻辑，代码更简洁。

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