Изменение отступов в emacs ess

Я хотел бы знать, как изменить отступ в emacs ess. Обычно я предпочитаю по умолчанию (тик-стиль "C++" ) Но иногда он форматирует действительно странно. Например, это то, что я хотел бы иметь, и это будет форматирование по умолчанию, если оно не является частью функции:

  ggplot(data = overtime.by.month,
         aes(x="",
             y=Percent,
             fill = Overtime)) +
  geom_bar(width = 1) +
  xlab('') +
  ylab(sub.txt) +
  labs(title = title.txt) +
  facet_wrap(~Year.Month) +
  geom_text(aes(y = txt.pos, label = Per.txt)) +
  coord_polar(theta = "y") +
  scale_fill_manual(values = c('green', 'red')) +
  theme(axis.ticks = element_blank(),
        axis.text.y = element_blank(),
        axis.text.x = element_blank())

Это то, что я получаю с текущим стилем отступов, если я помещаю его внутри функции.

a <- function(){

    a <- ggplot(data = overtime.by.month,
                aes(x="",
                    y=Percent,
                    fill = Overtime)) +
                        geom_bar(width = 1) +
                            xlab('') +
                                ylab(sub.txt) +
                                    labs(title = title.txt) +
                                        facet_wrap(~Year.Month) +
                                            geom_text(aes(y = txt.pos, label = Per.txt)) +
                                                coord_polar(theta = "y") +
                                                    scale_fill_manual(values = c('green', 'red')) +
                                                        theme(axis.ticks = element_blank(),
                                                              axis.text.y = element_blank(),
                                                              axis.text.x = element_blank())
}

ОБНОВЛЕНИЕ. Я последовали за рекомендациями VitoshKa и Dirk, после переустановки и обновления проблемы .emacs. Спасибо, ребята,

UPDATE2: проблема вернулась. Я думаю, теперь он будет воспроизводиться для всех. Я пытался на двух разных машинах. Это происходит, когда вы вводите код внутри функции. Я обновил сообщение, чтобы отразить изменения.

Ответы

ggplot(data = overtime.by.month,
       aes(x="",
           y=Percent,
           fill = Overtime)) +
    geom_bar(width = 1) +
    xlab('') +
    ylab(sub.txt) +
    labs(title = title.txt) +
    facet_wrap(~Year.Month) +
    geom_text(aes(y = txt.pos, label = Per.txt)) +
    coord_polar(theta = "y") +
    scale_fill_manual(values = c('green', 'red')) +
    theme(axis.ticks = element_blank(),
          axis.text.y = element_blank(),
          axis.text.x = element_blank())

;; R-internals manual
;;; ESS
(add-hook 'ess-mode-hook
      (lambda ()
        (ess-set-style 'C++ 'quiet)
        ;; Because
        ;;                                 DEF GNU BSD K&R C++
        ;; ess-indent-level                  2   2   8   5   4
        ;; ess-continued-statement-offset    2   2   8   5   4
        ;; ess-brace-offset                  0   0  -8  -5  -4
        ;; ess-arg-function-offset           2   4   0   0   0
        ;; ess-expression-offset             4   2   8   5   4
        ;; ess-else-offset                   0   0   0   0   0
        ;; ess-close-brace-offset            0   0   0   0   0
        (add-hook 'local-write-file-hooks
              (lambda ()
            (ess-nuke-trailing-whitespace)))))
;;(setq ess-nuke-trailing-whitespace-p 'ask)
;; or even
(setq ess-nuke-trailing-whitespace-p t)
;; Perl
(add-hook 'perl-mode-hook
      (lambda () (setq perl-indent-level 4)))