(defun collect-headline-data ()
  "Collect data of each headline in the buffer into an alist."
  (org-element-map (org-element-parse-buffer) 'headline
    (lambda (headline)
      (let ((title (org-element-property :raw-value headline))
            (level (org-element-property :level headline))
            (properties (get-properties headline)))
        (cons (cons 'title title) properties)))))

(defun get-properties (headline)
  "Get the properties of an Org mode headline element."
  (let ((property-drawer (org-element-map headline 'property-drawer 'identity nil t)))
    (when property-drawer
      (let ((node-properties (org-element-map property-drawer 'node-property 'identity))
            (properties '()))
        (dolist (np node-properties)
          (push (cons (org-element-property :key np) (org-element-property :value np)) properties))
        properties))))


(defun collect-all-property-keys ()
  "Collect all unique property keys in the buffer."
  (let ((all-keys '()))
    (org-element-map (org-element-parse-buffer) 'headline
      (lambda (headline)
        (let ((properties (get-properties headline)))
          (dolist (prop properties)
            (let ((key (car prop)))
              (unless (member key all-keys)
                (push key all-keys)))))))

    all-keys))

(defun generate-org-table ()
  "Generate a table from Org headlines and properties."
  (let* ((all-keys (collect-all-property-keys))
         (column-names (cons "title" all-keys))
         (headline-data (collect-headline-data))
         (table (list column-names)))
    (dolist (headline headline-data)
      (let ((row (list (cdr (assoc 'title headline)))))
        (dolist (key all-keys)
          (let ((value (cdr (assoc key headline))))
            (push (or value "") row)))
        (push (nreverse row) table)))
    (nreverse table)))

(defun find-heading (heading)
  "Move point to the specified HEADING."
  (goto-char (point-min))
  (re-search-forward (format org-complex-heading-regexp-format (regexp-quote heading)))
  (beginning-of-line))

(defun parse-named-subtree (subtree-title)
  "Parse the named subtree in the Org buffer."
  (interactive "Subtree title: ")
  (save-excursion
    (find-heading subtree-title)
    (org-narrow-to-subtree)
    (let ((table (generate-org-table)))
      (widen)
      table)))


(parse-named-subtree "Houses")