diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_1.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_1.png
new file mode 100644
index 00000000..ca17acf5
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_1.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_2.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_2.png
new file mode 100644
index 00000000..97c1d821
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_2.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_3.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_3.png
new file mode 100644
index 00000000..ce016923
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_3.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_4.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_4.png
new file mode 100644
index 00000000..5563da05
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_4.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_5.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_5.png
new file mode 100644
index 00000000..1bc671e3
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_5.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_6.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_6.png
new file mode 100644
index 00000000..afaf6146
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_6.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_7.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_7.png
new file mode 100644
index 00000000..e9af58b3
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_7.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_8.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_8.png
new file mode 100644
index 00000000..6b73f964
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_8.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_9.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_9.png
new file mode 100644
index 00000000..872390be
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_sample_9.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/chart_scenario_grading.png b/inst/extdata/PA2024CH_de_exec_summary/img/chart_scenario_grading.png
new file mode 100644
index 00000000..a1178b92
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/chart_scenario_grading.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/symbol_alignment.png b/inst/extdata/PA2024CH_de_exec_summary/img/symbol_alignment.png
new file mode 100644
index 00000000..b0f5d841
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/symbol_alignment.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/symbol_engagement.png b/inst/extdata/PA2024CH_de_exec_summary/img/symbol_engagement.png
new file mode 100644
index 00000000..d6b1f54e
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/symbol_engagement.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/symbol_exposure.png b/inst/extdata/PA2024CH_de_exec_summary/img/symbol_exposure.png
new file mode 100644
index 00000000..3ca002b5
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/symbol_exposure.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/img/table_scenario_grading.png b/inst/extdata/PA2024CH_de_exec_summary/img/table_scenario_grading.png
new file mode 100644
index 00000000..e75cb95c
Binary files /dev/null and b/inst/extdata/PA2024CH_de_exec_summary/img/table_scenario_grading.png differ
diff --git a/inst/extdata/PA2024CH_de_exec_summary/preamble.tex b/inst/extdata/PA2024CH_de_exec_summary/preamble.tex
new file mode 100644
index 00000000..1b4c581b
--- /dev/null
+++ b/inst/extdata/PA2024CH_de_exec_summary/preamble.tex
@@ -0,0 +1,152 @@
+\usepackage{geometry}
+\usepackage{xparse}
+\usepackage{xcolor}
+\usepackage{mdframed}
+\usepackage{multicol}
+\usepackage{hyperref}
+\usepackage{textcomp}
+
+% \usepackage[default]{opensans}
+\usepackage[T1]{fontenc}
+
+% \usepackage{showframe}
+% \renewcommand*\ShowFrameColor{\color{watermelon}}
+
+\graphicspath{ {img/} }
+
+\geometry{
+a4paper,
+left=0.4in,
+right=0.2in,
+top=0.2in,
+bottom=0.2in,
+headheight=0.0in
+}
+
+\NewDocumentCommand \scorecardGeometry{}{
+  \geometry{
+    a4paper,
+    left=0.2in,
+    right=0.2in,
+    top=0.2in,
+    bottom=0.2in,
+    headheight=0.0in
+  }
+}
+
+\definecolor{esLightGray}{HTML}{F2F2F2}
+\definecolor{scBlueGray}{HTML}{475767}
+\definecolor{watermelon}{HTML}{B4Da55}
+\definecolor{candy}{HTML}{f42069}
+
+% \setsansfont{OpenSans}[
+%     Path = fonts/OpenSans/,
+%     % Scale = 0.9,
+%     Extension = .ttf,
+%     UprightFont = *-Regular,
+%     BoldFont = *-Bold,
+%     ItalicFont = *-Italic,
+%     BoldItalicFont = *-BoldItalic
+%     ]
+
+% \setmainfont{OpenSans}
+\renewcommand{\familydefault}{\sfdefault}
+
+\NewDocumentCommand \verticalAlignImage {}{
+  \strut\vspace*{-\baselineskip}\newline
+}
+
+\NewDocumentCommand \centeredImage{ o m }{
+  \begingroup
+  \setbox0=\hbox{
+  \IfValueTF{#1}{
+    \includegraphics[#1, keepaspectratio]{#2}
+  }{
+    \includegraphics{#2}
+  }
+  }
+  \parbox{\wd0}{\box0}\endgroup
+}
+
+\NewDocumentCommand \exposureImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_exposure}
+  }{
+    \centeredImage{symbol_exposure}
+  }
+}
+
+\NewDocumentCommand \alignmentImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_alignment}
+  }{
+    \centeredImage{symbol_alignment}
+  }
+}
+
+\NewDocumentCommand \engagementImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_engagement}
+  }{
+    \centeredImage{symbol_engagement}
+  }
+}
+
+\mdfdefinestyle{esstyle}{
+  frametitlebackgroundcolor = esLightGray,
+  linecolor=white,
+  linewidth=0,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0
+}
+
+\mdfdefinestyle{scheaderstyle}{
+  backgroundcolor = scBlueGray,
+  linecolor=white,
+  linewidth=0,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0,
+  innerrightmargin=0.7em,
+  rightmargin=0.0em,
+  innerleftmargin=0.7em,
+  leftmargin=0.0em,
+  fontcolor=white
+}
+
+
+\mdfdefinestyle{debugstyle}{
+  frametitlebackgroundcolor = watermelon,
+  linecolor = candy,
+  linewidth = 2pt,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0
+}
+
+\NewDocumentCommand \esboxTitleString{ m o }{
+  % \Large#1\vrule{24pt}{2pt}%
+  \Large#1%
+  \IfValueT{#2}{\hfill {#2}}
+}
+
+\NewDocumentEnvironment{esbox}{ O{\textwidth} m o }
+{% begin code
+  \begin{minipage}[t]{#1}%
+  \begin{mdframed}[style=esstyle, frametitle={\esboxTitleString{#2}[#3]}]%
+}
+{ % enddef
+  \end{mdframed}%
+  \end{minipage}%
+}%
+
+\NewDocumentEnvironment{scheader}{ O{\textwidth}}
+{% begin code
+  \begin{minipage}[t]{#1}%
+  \begin{mdframed}[style=scheaderstyle]%
+}
+{ % enddef
+  \end{mdframed}%
+  \end{minipage}%
+}%
+
+\newcommand{\startunderscoreletter}{\catcode`_ 12\relax}
+\newcommand{\stopunderscoreletter}{\catcode`_ 8\relax}
diff --git a/inst/extdata/PA2024CH_de_exec_summary/scorecard.Rmd b/inst/extdata/PA2024CH_de_exec_summary/scorecard.Rmd
new file mode 100644
index 00000000..fc3dc874
--- /dev/null
+++ b/inst/extdata/PA2024CH_de_exec_summary/scorecard.Rmd
@@ -0,0 +1,619 @@
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+\begin{scheader}
+\section{Climate Scores Indikatoren}
+
+
+\subsection{PACTA-Kurzfassung 2022}
+
+Die folgenden drei Seiten zu den Klimaverträglichkeits-Indikatoren ergänzen die PACTA-Kurzfassung mit automatisch generierten Ergebnissen auf Portfolioebene, die auf den Swiss Climate Scores basieren. Da die Swiss Climate Scores \textbf{\href{https://www.sif.admin.ch/sif/de/home/finanzmarktpolitik/nachhalt_finanzsektor.html}{(link)}} während des PACTA-Klimatests 2022 definiert wurden, gibt es einige Abweichungen, die auf den Folgeseiten mit den Erläuterungen angegeben sind. Bitte beachten Sie, dass die Indikatoren für die Exposition gegenüber fossilen Brennstoffen und zum ‘globalen Erwärmungspotenzial’ auf der PACTA-Methodik und den PACTA-Sektoren basieren.
+\end{scheader}
+```
+
+```{=latex}
+\subsection{IST-ZUSTAND}
+
+\begin{multicols}{2}
+
+\textbf{CO\textsubscript{2}-Fussabdruck}
+
+Erfasst werden alle Quellen von Treibhausgasemissionen der investierten Unternehmen (Scope 1-3), einschliesslich der relevanten Emissionen ihrer Lieferanten und Produkte.
+
+```
+
+```{r emissions_scorecard, fig.height=2.7}
+
+tryCatch(
+  {
+    data_emissions_scorecard <- prep_emissions_scorecard(
+      emissions_data = emissions_data,
+      audit_data = audit_data,
+      currency_exchange_value = currency_exchange_value
+    )
+    plot_emissions_scorecard(data_emissions_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_emissions_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{r emissions_scorecard_info}
+total_portfolio_value_curr <- audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::mutate(value_usd = dplyr::if_else(value_usd < 0, 0, value_usd)) %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)
+
+total_portfolio_percentage_equity <- (audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::filter(.data$asset_type == "Equity") %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)) /
+  total_portfolio_value_curr
+
+total_portfolio_percentage_bonds <- (audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::filter(.data$asset_type == "Bonds") %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)) /
+  total_portfolio_value_curr
+
+total_portfolio_percentage_coverage <- (total_portfolio_percentage_equity + total_portfolio_percentage_bonds)
+  
+```
+
+```{=latex}
+
+Benchmark:
+
+\begin{center}
+\begin{tabular}{ p{0.5\linewidth} p{0.5\linewidth} } 
+ \hline
+ Aktien & Unternehmensanleihen \\ 
+ \hline
+ iShares MSCI World ETF & iShares Global Corp Bond UCITS ETF \\ 
+ \hline
+\end{tabular}
+\end{center}
+
+Im Rahmen der Bewertung abgedeckte Portfolio-Vermögenswerte: \textbf{`r round(total_portfolio_percentage_coverage * 100)` \%}
+
+\vfill\null
+\columnbreak
+
+\textbf{Exposition gegenüber fossilen Brennstoffen und erneuerbaren Energien gemäss der PACTA-Methodik}
+
+Es besteht ein wissenschaftlicher Konsens über die Notwendigkeit, aus Kohle auszusteigen, die Finanzierung neuer Projekte für fossile Brennstoffe einzustellen und die Kapazitäten für erneuerbare Energien auszubauen. Die nachstehende Abbildung zeigt das finanzielle Engagement (AUM in \%) dieses Portfolios in Technologien der Sektoren Kohlebergbau, Öl- und Gasgewinnung (Upstream), Stromerzeugung aus fossilen Brennstoffen (inkl. Kohleverstromung) und Stromerzeugung aus erneuerbaren Energien. Die PACTA-Exposition basiert auf den Produktionskapazitäten und nicht dem Umsatz. 
+
+```
+
+```{r exposures_scorecard, fig.height=2.5}
+
+tryCatch(
+  {
+    data_exposures_scorecard <- prep_exposures_scorecard(results_portfolio)
+    plot_exposures_scorecard(data_exposures_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_exposures_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{multicols}
+
+\subsection{TRANSITION ZU NETTO-NULL}
+
+\begin{multicols}{2}
+\textbf{PACTA Aggregierter Score zur Klimaausrichtung}
+
+```
+
+```{r scores_scorecard, fig.height=3}
+tryCatch(
+  {
+    data_scores_scorecard <- prep_scores_scorecard(results_portfolio)
+    plot_scores_scorecard(data_scores_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{r emissions_covered}
+
+aggregate_score_emissions_covered_perc <- prep_scores_emissions_scorecard(
+  emissions_data,
+  log_dir = log_dir
+)
+
+aggregate_score_exposure_covered_perc <- prep_scores_exposure_scorecard(
+  audit_data = audit_data,
+  currency_exchange_value = currency_exchange_value,
+  total_portfolio_value_curr = total_portfolio_value_curr,
+  log_dir = log_dir
+)
+
+```
+
+```{=latex}
+
+Abgedeckte Portfolio-Emissionen: \textbf{`r round(aggregate_score_emissions_covered_perc * 100)` \%}
+
+Portfolio-Vermögenswerte: \textbf{`r round(aggregate_score_exposure_covered_perc * 100)` \%}
+
+Verwendetes Klimaszenario: \textbf{GECO 2021}
+
+\vfill\null
+\columnbreak
+
+Dieser Score zeigt die geschätzte Gesamtausrichtung der PACTA-Sektoren (ohne Zement) im Portfolio auf die GECO 2021-Szenarien hin. Bitte beachten Sie, dass bei der Interpretation dieses Scores die Analyse der zugrundeliegenden Ergebnisse und die in jedem der analysierten Sektoren angewandte Anlagestrategie berücksichtigt werden muss, da ein aggregiertes Ergebnis immer auf bestimmten Annahmen beruht. Manche Portfolios, die sich Klimaziele setzen, enthalten absichtlich Unternehmen, die noch nicht auf dem Weg zur Erreichung des 1,5\textdegree C-Ziels sind, und versuchen stattdessen, die Ausrichtung der investierten Unternehmen zu verbessern, um auf diese Weise im Laufe der Zeit einen wachsenden Anteil der Wirtschaft klimafreundlich zu machen und so aktiv zur Erreichung der Klimaziele beizutragen. Die oben genannte Kombination von Indikatoren und ihre Darstellung werden vom Schweizer Bundesrat als aktuelle Best Practice angesehen, um wissenschaftsbasierte Transparenz über die Ausrichtung der Portfolioanlagen auf die globalen Klimaziele hin zu schaffen.
+
+
+\end{multicols}
+```
+
+\newpage
+
+```{=latex}
+\begin{multicols}{2}
+
+\subsection{Verifizierte Bekenntnisse zu Netto-Null}
+
+Immer mehr Unternehmen bekennen sich freiwillig zu Netto-Null Emissionszielen und formulieren Zwischenziele. Die Wirksamkeit solcher Bekenntnisse hängt davon ab, ob die Zwischenziele glaubwürdig, wissenschaftlich fundiert und transparent sind. Die folgenden Informationen beruhen auf Angaben der SBTi \textbf{\href{https://sciencebasedtargets.org/companies-taking-action}{(link)}}.
+
+```
+
+```{r sbti_net_zero_commitments}
+fin_data_net_zero_targets <- readr::read_csv(
+  file.path(score_card_dir, "fin_data_net_zero_targets.csv"),
+  col_types = readr::cols_only(
+    isin = "c",
+    asset_type = "c",
+    factset_entity_id = "c"
+  )
+)
+
+peer_group_share_net_zero <- readr::read_csv(
+  file.path(score_card_dir, "peer_group_share_net_zero.csv"),
+  col_types = readr::cols_only(
+    investor_name = "c",
+    portfolio_name = "c",
+    share_net_zero = "n"
+  )
+)
+
+data_prep_net_zero_commitments <- prep_net_zero_commitments(
+  total_portfolio = total_portfolio,
+  peer_group = peer_group,
+  net_zero_targets = fin_data_net_zero_targets,
+  peer_group_share_net_zero = peer_group_share_net_zero
+)
+
+```
+
+```{=latex}
+
+\begin{itemize}
+\item Anteil Portfolio-Unternehmen mit verifizierten Bekenntnissen zu Netto-Null und glaubwürdigen Zwischenzielen: \textbf{`r round(data_prep_net_zero_commitments %>% dplyr::filter(.data$portfolio_name == "this_portfolio") %>% dplyr::pull("share_net_zero") * 100, 1)` \%}
+
+\item Durchschnittlicher Anteil der Unternehmen in Peer-Portfolios mit verifizierten Bekenntnissen zu Netto-Null und glaubwürdigen Zwischenzielen: \textbf{`r round(data_prep_net_zero_commitments %>% dplyr::filter(.data$portfolio_name == peer_group) %>% dplyr::pull("share_net_zero") * 100, 1)` \%}
+\end{itemize}
+```
+
+```{=latex}
+\subsection{Real Estate Score}
+
+```
+
+```{r real_estate_scores_scorecard, fig.height=3}
+
+if (real_estate_flag){
+
+  tryCatch(
+   {
+      real_estate_data <- jsonlite::read_json(
+        path = file.path(real_estate_dir, "data", "data.json")
+        )[["exec_sum"]]
+    
+      re_data_scores_scorecard <- tibble(
+        asset_class = c("directly held", "mortgages"),
+        score = c(
+          real_estate_data[["real_estate"]][["co2eq_emissions_grade"]],
+          real_estate_data[["mortgage"]][["co2eq_emissions_grade"]]
+        )
+        ) %>%
+      dplyr::mutate(score = dplyr::if_else(score %in% LETTERS[6:28], "E", score))
+
+      plot_scores_scorecard_real_estate(
+        data = re_data_scores_scorecard
+      )
+    },
+    error = function(e) {
+      write_log(
+        "ES: There was an error in prep/plot_scores_scorecard_real_estate(). Returning empty plot object.\n",
+        file_path = log_dir
+      )
+      empty_plot_error_message()
+    }
+  )
+} else {
+  empty_plot_no_data_message()
+}
+
+```
+
+```{=latex}
+
+\subsection{Schweizer Immobilien und Hypothekarportfolios}
+
+CO\textsubscript{2}-Intensität nach GEAK-Klassen (Portfoliodurchschnitt)
+
+\begin{itemize}
+\item Direkt gehaltene Gebäude:
+`r tryCatch({real_estate_data[["real_estate"]][["co2eq_emissions"]]}, error = function(e) {NULL})`
+\(\rightarrow\)
+`r tryCatch({real_estate_data[["real_estate"]][["co2eq_emissions_grade"]]}, error = function(e) {NULL})`
+
+\item Hypotheken:
+`r tryCatch({real_estate_data[["mortgage"]][["co2eq_emissions"]]}, error = function(e) {NULL})`
+\(\rightarrow\)
+`r tryCatch({real_estate_data[["mortgage"]][["co2eq_emissions_grade"]]}, error = function(e) {NULL})`
+
+\end{itemize}
+
+\vfill\null
+\columnbreak
+```
+
+```{=latex}
+\subsection{Gesamtklimastrategie einschliesslich eines glaubwürdigen Klimadialogs}
+
+Finanzinstitute können zur Transition zu Netto-Null beitragen, indem sie sich bei investierten Unternehmen für wissenschaftsbasierte und extern verifizierte Transitionspläne hin zu 2050 einsetzen.
+
+```
+
+```{r climate_strategy_initiatives}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"))) {
+  user_climate_strategy_scorecard_initiatives <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"),
+    col_types = readr::cols_only(
+      user_id = "n",
+      peer_group = "c",
+      name_climate_initiative = "c",
+      climate_initiative = "l"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_initiatives <- tibble::tibble(
+    user_id = 0,
+    peer_group = peer_group,
+    name_climate_initiative = NA_character_,
+    climate_initiative = NA
+  )
+}
+
+peers_climate_strategy_scorecard_initiatives <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_initiatives.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    n = "n",
+    peers_yes = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_initiatives <- prep_climate_strategy_scorecard_initiatives(
+  data = user_climate_strategy_scorecard_initiatives,
+  data_peers = peers_climate_strategy_scorecard_initiatives,
+  peer_group = peer_group
+)
+
+member_initiatives_portfolio <-
+  data_prep_climate_strategy_scorecard_initiatives$member_initiatives_portfolio
+
+member_initiatives_peers <-
+  data_prep_climate_strategy_scorecard_initiatives$member_initiatives_peers
+
+```
+
+```{=latex}
+
+\begin{itemize}
+\item Ist das Finanzinstitut Mitglied einer klimarelevanten Initiative?
+  \textbf{`r if (member_initiatives_portfolio$yes == 1) {"YES"} else if (member_initiatives_portfolio$yes == 0 & file.exists(file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"))) {"NO"} else {"Not Answered"}`  (Peers:
+   `r round(member_initiatives_peers * 100)` 
+  \%)}
+ 
+ `r if (member_initiatives_portfolio$yes == 1) {paste0("Name:", member_initiatives_portfolio$name_climate_initiative)}` 
+
+```
+
+
+```{r climate_strategy_voting_rights}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_voting.csv"))) {
+  user_climate_strategy_scorecard_voting <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_voting.csv"),
+    col_types = readr::cols_only(
+      peer_group = "c",
+      user_id = "n",
+      asset_type = "c",
+      voting_rights = "c"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_voting <- tibble::tibble(
+    peer_group = peer_group,
+    user_id = 0,
+    asset_type = c("INF", "LE", "Other", "PE"),
+    voting_rights = "not_answered"
+  )
+}
+
+peers_climate_strategy_scorecard_voting <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_voting.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    asset_type = "c",
+    n = "n",
+    peers_yes = "n",
+    peers_no = "n",
+    peers_not_answered = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_voting <- prep_climate_strategy_scorecard_voting(
+  data = user_climate_strategy_scorecard_voting,
+  data_peers = peers_climate_strategy_scorecard_voting,
+  peer_group = peer_group
+)
+
+voting_rights_portfolio <-
+  data_prep_climate_strategy_scorecard_voting$voting_rights_portfolio
+
+voting_rights_peers <-
+  data_prep_climate_strategy_scorecard_voting$voting_rights_peers
+
+```
+
+```{=latex}
+
+\item Unterstützt das Finanzinstitut Klimastrategien durch die Ausübung von Stimmrechten?
+  
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("answer")` LE  (Peers: LE
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "PE") %>% dplyr::pull("answer")` PE  (Peers: PE
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "PE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "INF") %>% dplyr::pull("answer")` INF  (Peers: INF
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "INF") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("answer")` Other assets (Peers: Other assets
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("yes") * 100)` 
+\%)}
+  
+```
+
+```{r climate_strategy_engagement}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_engagement.csv"))) {
+  user_climate_strategy_scorecard_engagement <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_engagement.csv"),
+    col_types = readr::cols_only(
+      peer_group = "c",
+      user_id = "n",
+      asset_type = "c",
+      engagement = "c"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_engagement <- tibble::tibble(
+    peer_group = peer_group,
+    user_id = 0,
+    asset_type = c("CB", "LE", "Other", "RE"),
+    engagement = "not_answered"
+  )
+}
+
+
+peers_climate_strategy_scorecard_engagement <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_engagement.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    asset_type = "c",
+    n = "n",
+    peers_yes = "n",
+    peers_no = "n",
+    peers_not_answered = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_engagement <- prep_climate_strategy_scorecard_engagement(
+  data = user_climate_strategy_scorecard_engagement,
+  data_peers = peers_climate_strategy_scorecard_engagement,
+  peer_group = peer_group
+)
+
+engagement_portfolio <-
+  data_prep_climate_strategy_scorecard_engagement$engagement_portfolio
+
+engagement_peers <-
+  data_prep_climate_strategy_scorecard_engagement$engagement_peers
+
+```
+
+```{=latex}
+
+\item Unterstützt das Finanzinstitut Klimastrategien durch Engagement-Massnahmen?
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("answer") ` LE  (Peers: LE
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "CB") %>% dplyr::pull("answer")` CB  (Peers: CB
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "CB") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "RE") %>% dplyr::pull("answer")` RE  (Peers: RE
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "RE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("answer")` Other assets (Peers: Other assets
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("yes") * 100)` 
+\%)}
+
+\end{itemize}
+\end{multicols}
+```
+
+\newpage
+
+```{=latex}
+\begin{scheader}
+\section{Klimaverträglichkeitsindikatoren}
+
+
+\subsection{PACTA-Kurzfassung 2022}
+
+MINDESTKRITERIEN FÜR DIE SWISS CLIMATE SCORES UND DEREN UMSETZUNG IM PACTA-KIMATEST
+
+\end{scheader}
+```
+
+### CO~2~-Fussabdruck
+
+Der Indikator „CO~2~-Fussabdruck“ umfasst den CO~2~-Fussabdruck (CO~2~e/CHF Mio. investiert), nicht aber die CO~2~-Intensität (Emissionen pro Umsatz), wie dies bei den «Swiss Climate Scores» der Fall ist. Die zwingenden Anforderungen werden erfüllt.
+
+Zwingende Anforderungen: 
+
+* Einbezug von Scope 1, 2 und relevanten Scope 3 Emissionen.
+* Der Einbezug von Scope 3 Emissionen muss sich mindestens am Zeitplan der EU-Referenzwerte-Verordnung 2019/2089 orientieren.
+
+### Exposition gegenüber fossilen Brennstoffen und erneuerbaren Energien
+
+**Der Expositions-Score in dieser Kurzfassung** weicht von den Anforderungen der Swiss Climate Scores ab, da die Swiss Climate Scores eingeführt wurden, als der PACTA-Klimatest Schweiz 2022 bereits in der Entwicklungsphase war. Während bei den Swiss Climate Scores der Anteil der Unternehmen mit fossilen Aktivitäten gemessen wird, erfasst der Indikator für die PACTA-Exposition das finanzielle Engagement (als verwaltetes Vermögen in \%) dieses Portfolios in den jeweiligen Technologien. Die PACTA-Exposition basiert nicht auf Umsatzdaten, sondern auf Asset-Level-Daten, die die tatsächlichen physischen Aktivitäten abbilden. Diese Aktivitäten werden dann den Wertpapieren und anschliessend dem Portfolio zugeordnet. Die Portfolioallokation erfolgt anhand des Ansatzes der Portfoliogewichtung, bei dem die Technologie-Exposition des Portfolios auf der Grundlage der Gewichtung jeder Position innerhalb des Portfolios berechnet wird.
+
+Spezifizierungen:
+
+* Der Indikator zeigt das finanzielle Engagement in jeder Technologie auf der Grundlage des Technologiemix der einzelnen Unternehmen an.
+* Der Indikator basiert auf physischen Asset-Level-Unternehmensdaten und nicht auf Umsatzdaten 
+* Der Indikator zeigt nur die Exposition gegenüber dem Kernmarkt eines Unternehmens (hier: Kohle, Öl und Gas, Stromerzeugung). Dies bedeutet, dass z. B. die Kraftwerke von Apple nicht berücksichtigt werden, da das Kerngeschäft von Apple nicht die Stromerzeugung ist
+Der Indikator gibt Auskunft darüber, wie stark ein Portfolio gegenüber verschiedenen Technologien innerhalb desselben Sektors exponiert ist (z. B. Stromerzeugung aus fossilen Brennstoffen im Vergleich zu Stromerzeugung aus erneuerbaren Energien).
+* Bei der Ermittlung der Emissionen von Aktivitäten wird je nach Sektor unterschiedlich vorgegangen. Im Öl- und Gassektor werden die Upstream-Aktivitäten, im Kohlesektor der Kohlebergbau und im Elektrizizätssektor die Stromerzeugung mitberücksichtigt. Weitere Informationen finden Sie in der Dokumentation zum Gesamtscore auf der nächsten Seite 
+
+Um die Transition zu fördern, sind Investitionen in Klimalösungen entscheidend, die nicht durch CO~2~-Emissionskennzahlen erfasst werden können. Aus diesem Grund ist in der Expositionstabelle auch die Exposition gegenüber erneuerbaren Energien enthalten.
+
+**Zwingende Anforderungen der Swiss Climate Scores:**
+
+* Der Schwellenwert von 5\% der Einnahmen gilt sowohl für Aktivitäten, die direkt mit der Exploration und Produktion fossiler Brennstoffe verbunden sind, als auch – sofern Daten verfügbar sind - für Aktivitäten, die diese Produktion finanzieren (für Kohle gemäss der "Global Coal Exit List" oder ähnlichem).
+* Der Umfang der Aktivitäten umfasst die gesamte Wertschöpfungskette, von der Exploration, Gewinnung und Produktion (Upstream) über den Transport und die Lagerung (Midstream) bis hin zur Raffinierung, Vermarktung und Elektrifizierung (Downstream).
+
+
+### Immobilien und Hypotheken – zusätzlicher PACTA-Indikator
+
+Durch die Substitution fossiler durch erneuerbare Heizsysteme und energieeffiziente Gebäudesanierungen kann ein direkter und wirksamer Beitrag zum Klimaschutz geleistet werden. Immobilien und Hypotheken sind daher wichtige Anlageklassen. Die Abbildung zeigt die durchschnittliche CO~2~-Intensität der Teilnehmer in den GEAK-Klassen, berechnet nach der PACTA-Methode.
+
+### Verifizierte Bekenntnisse zu Netto-Null
+
+_Die zwingenden Anforderungen werden erfüllt._
+
+Zwingende Anforderungen:
+
+* Die Unternehmen müssen sich öffentlich dazu bekannt haben, Netto-Null-Emissionen zu erreichen, und ihre  kurzfristigen Ziele müssen von einem der folgenden Dienstleister zertifiziert sein: Science Based Targets initiative (SBTi).
+
+### Management auf Netto-Null 
+
+_Für diesen Indikator wurden im Rahmen des PACTA-Klimatests 2022 keine Informationen erhoben_
+
+### Gesamtklimastrategie einschliesslich eines glaubwürdigen Klimadialogs
+
+**Umsetzung:** weicht von den zwingenden Anforderungen der Swiss Climate Scores ab (siehe unten)
+
+* Klimainitiativen müssen mit dem 2050-Netto-Null-Ziel vereinbar sein
+  * Umsetzung: „Ja“ bedeutet, dass der Nutzer mindestens eine Initiative angekreuzt hat. „Nein“ bedeutet, dass der Nutzer keine Initiative angekreuzt hat. „Name“ zeigt die Namen aller angekreuzten Initiativen; das freie Feld wird mit „Andere“ zusammengefasst
+* Die Ausübung von Stimmrechten wird als klimarelevante Massnahme angesehen
+  * Umsetzung: „JA (Anlageklasse)“ bedeutet, dass der Nutzer in der Anlageklasse investiert hat UND angekreuzt hat, dass er Stimmrechte ausübt. „NEIN“ bedeutet, dass der Nutzer in der Anlageklasse investiert hat, aber NICHT angekreuzt hat, dass er Stimmrechte ausübt. „KEINE ANTWORT“: der Nutzer hat nicht angegeben, dass er in der Anlageklasse investiert hat. Peers: Anzahl der Nutzer mit einem JA für die Anlageklasse von allen Nutzern, die in diese Anlageklasse investiert haben. Die abgedeckten Anlageklassen sind "börsennotierte Aktien (LE)", "Private Equity (PE)", "Infrastrukturanlagen (INF)", und "Andere Anlageklassen".
+* Engagement-Strategien werden als klimarelevante Massnahme angesehen
+  * Umsetzung: Bedingungen für „JA (Anlageklasse)“, „NEIN“ und „KEINE ANTWORT“ wie oben definiert, aber für Engagement-Strategien. Für „Andere Anlagen“ müssen die oben genannten Bedingungen auf mindestens eine der anderen Anlagen zutreffen. Peers: Anzahl der Nutzer mit einem JA für die Anlageklasse  von allen Nutzern, die in diese Anlageklasse investiert haben. Die abgedeckten Anlageklassen sind "börsennotierte Aktien (LE)", "Unternehmensanleihen (CB)", "Immobilien/Hypotheken (RE)", und "Andere Anlageklassen".
+
+**Zwingende Anforderungen:**
+
+* Abstimmungen/Stellvertreterabstimmungen sollen mit dem 2050-Netto-Null-Ziel vereinbar sein. 
+* Jede miteinbezogene Engagement-Strategie soll mit dem 2050-Netto-Null-Ziel vereinbar sein. 
+* Ein Beispiel für eine Klima-Engagementinitiative ist Climate Action 100+. 
+* Das Eskalationsverfahren muss klar definiert und transparent verfügbar sein.
+
+### PACTA Aggregierter Score zur Klimaausrichtung
+
+**Umsetzung:**
+
+* PACTA misst die Verträglichkeit der 5 Jahre vorausschauenden Produktionspläne der Unternehmen mit dem GECO 2021 Szenario. 
+* Die Sektor-Scores werden zu einem Score zusammengefasst; Zement ist nicht im GECO 2021 Szenario enthalten und damit auch nicht Teil des Scores.
+* Die meisten klimarelevanten Sektoren, einschliesslich ihrer jeweiligen Beiträge sind einbezogen.
+* Anwendungsfall: 
+  * Finanzinstitute können intern und extern einfach und verständlich über ihre Klima-Performance kommunizieren.
+  * Anleger können die Portfolioprioritäten verstehen und sich über die potenziellen langfristigen Risiken der Transition informieren.
+  * Die Aufsichtsbehörden sind in der Lage, die Positionierung des Finanzinstituts in Bezug auf den Klimawandel im Vergleich zu seinen Peers zu verstehen.
+
+**Zwingende Anforderungen an die Datenanbieter:**
+
+* Lassen Sie sich vom 2050-Netto-Null-Ziel leiten, welches mit der 1,5$\text{\textdegree}$C-Erwärmungsgrenze des Klimaübereinkommen von Paris und den neuesten Erkenntnissen des Weltklimarats im Einklang steht.
+* Befolgen Sie die technischen Überlegungen des TCFD 2021 PAT-Berichts „Measuring Portfolio Alignment - technical considerations“ („Messung der Klimaausrichtung des Portfolios – technische Überlegungen“). Halten Sie insbesondere folgende Punkte ein:
+  * Wählen Sie ein 1,5$\text{\textdegree}$C-Szenario, das mindestens den von der Science Based Targets Initiative (SBTi) in dem Dokument „Foundations of Science-Based Target Setting“ („Grundlagen der wissenschaftsbasierten Zielsetzung“) dargelegten Kriterien entspricht (Betrachtung 7).
+  * Priorisieren Sie granulare Benchmarks, wenn diese wesentliche Unterschiede in der Realisierbarkeit der Dekarbonisierung zwischen Branchen oder Regionen aufzeigen (Betrachtung 8).
+  * Beziehen Sie Scope-3-Emissionen für die Sektoren ein, die am bedeutendsten sind und für die Benchmarks leicht aus bestehenden Szenarien entnommen werden können (fossile Brennstoffe, Bergbau, Automobilindustrie) (Betrachtung 11). 
+  * Zusatz: Beachten Sie, dass PACTA nicht auf den Emissionen, sondern auf den Produktionsplänen der Unternehmen basiert. Die produktionsbasierte Analyse ermöglicht es, die folgenden Bereiche so genau wie möglich abzubilden: 
+    * Scope 1 und 2 für die Stahlproduktion
+    * Scope 3 für die Gewinnung fossiler Brennstoffe und die Automobilproduktion
+    * Scope 1 für die Stromerzeugung und die Luftfahrt
+* Erlauben Sie der Schweizer Regierung, die aggregierten impliziten Temperaturwerte basierend auf Ihrer Methodik für die folgenden Indizes offenzulegen, um sie mit anderen Anbietern zu vergleichen: SMI, MSCI World, MSCI World Materials, MSCI World Industrials, MSCI World Utilities, MSCI World Real Estate.
+
+**Wichtige, aber nicht zwingende Anforderungen an die Datenanbieter:**
+
+Verwendete Benchmarks:
+
+* Zumindest sollte bei den emissionsintensiven Sektoren ein Ansatz für die Teilsektoren gewählt werden, bei dem die Benchmarks auf externen, replizierbaren, wissenschaftlichen Studien beruhen, wobei den Unternehmen ein „fairer Anteil“ am globalen CO~2~-Budget auf der Grundlage ihres Aktivitäten-Mix zugewiesen wird.
+* Klimalösungen, insbesondere für den Stromsektor, sollten ebenfalls erfasst und mit dem jeweiligen Szenario verglichen werden, da der Ausbau der erneuerbaren Energien laut IEA ein Schlüsselfaktor für die Transition ist. 
+
+Langfristige Unternehmensziele, kurzfristige Massnahmen und Datenquellen:
+
+* Kurzfristige Investitionspläne einbeziehen 
+* Verwenden Sie nach Möglichkeit von Dritten verifizierte Daten auf Vermögenswert-Ebene. Seien Sie bei den Datenquellen so transparent wie möglich.
+* Daten zu vermiedenen Emissionen auf Unternehmensebene sollten nicht berücksichtigt werden, da es keine Standards für die Berichterstattung über vermiedene Emissionen gibt und diese Berechnung mit technischen Herausforderungen und Problemen verbunden ist. Stattdessen sollten Klimalösungen berücksichtigt werden, zumindest Strom aus erneuerbaren Energien.
+* _Anforderungen nicht erfüllt:_ 
+  * Beurteilen Sie die Glaubwürdigkeit der Emissionsreduzierungspläne der Unternehmen und berücksichtigen Sie, ob sie extern auf ihre wissenschaftliche Fundiertheit hin validiert worden sind (z. B. durch SBTi) und im Einklang mit dem 2050-Netto-Null-Ziel stehen. 
+  * Überprüfen Sie, ob die kurzfristigen Massnahmen mit den langfristigen Verpflichtungen im Einklang stehen.
+  * Der Einbezug von Scope-3-Emissionen muss sich mindestens am Zeitplan der EU-Referenzwerte-Verordnung 2019/2089 orientieren. 
+
+Zur Berechnung der Klimaausrichtung des Portfolios
+
+* _Zusatz:_ Der PACTA-Gesamtscore zur Klimaausrichtung ist keine Bewertung des impliziten Temperaturanstiegs (ITR). Aus diesem Grund kann PACTA für den Score selbst kein Konfidenzniveau angeben. Stattdessen gibt es folgende Konfidenz-Szenarien: 
+  * Wahrscheinlichkeit von 50%, dass im Szenario mit 1,5$\text{\textdegree}$C-Ziel und einheitlichem CO2-Preis (GECO 2021) die globale Erwärmung 1,5$\text{\textdegree}$C nicht überschreitet
+  * Wahrscheinlichkeit von 50%, dass im Szenario mit 1,8$\text{\textdegree}$C-Ziel und Umsetzung der nationalen Beiträge (NDC) sowie langfristigen Strategien der Vertragsstaaten (LTS) (GECO 2021) die globale Erwärmung 1,8$\text{\textdegree}$C nicht überschreitet
+  * Wahrscheinlichkeit von 50%, dass im Szenario mit 3,0$\text{\textdegree}$C-Ziel und Umsetzung der bisher beschlossenen politischen Massnahmen (GECO 2021) die globale Erwärmung 3,0$\text{\textdegree}$C nicht überschreitet
+* _Anforderungen nicht erfüllt,_ da der Gesamtscore kein ITR-Score ist.
+  * Die impliziten Temperaturwerte sollen mit einem Konfidenzniveau von 66\% statt 50\% berechnet werden. 
+  * Die Erwärmungswerte werden auf Basis der kumulierten Emissionen bis 2050 berechnet, um die physikalische Beziehung zwischen kumulierten Emissionen und der Erwärmung angemessen zu berücksichtigen.
+
+
diff --git a/inst/extdata/PA2024CH_de_exec_summary/survey-chapter-alternate.Rmd b/inst/extdata/PA2024CH_de_exec_summary/survey-chapter-alternate.Rmd
new file mode 100755
index 00000000..774d9642
--- /dev/null
+++ b/inst/extdata/PA2024CH_de_exec_summary/survey-chapter-alternate.Rmd
@@ -0,0 +1,5 @@
+## Umfrage zu Klimamassnahmen
+
+Keine Daten zur Umfrage zu Klimamassnahmen verfügbar
+
+\newpage
diff --git a/inst/extdata/PA2024CH_de_exec_summary/survey-chapter.Rmd b/inst/extdata/PA2024CH_de_exec_summary/survey-chapter.Rmd
new file mode 100644
index 00000000..9fa2b39b
--- /dev/null
+++ b/inst/extdata/PA2024CH_de_exec_summary/survey-chapter.Rmd
@@ -0,0 +1,202 @@
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+
+\section{Umfrage zu Klimamassnahmen}
+
+Dieser Abschnitt bietet Einblicke in die Wirksamkeit von Klimamassnahmen auf institutioneller Ebene. Die Ergebnisse basieren auf der ergänzenden qualitativen Umfrage zu Klimamassnahmen. Die Umfrageergebnisse werden mit den Ergebnissen der Peers und den quantitativen Ergebnissen dieses Portfolios verglichen. Bitte beachten Sie, dass die Antworten der Umfrageteilnehmenden auf eigenen Angaben beruhen und nicht von 2DII, RMI und WP überprüft wurden.
+
+\fbox{\begin{minipage}{\textwidth}
+\textbf{Erläuterungen zu den unten dargestellten Zielscheibendiagrammen:} Die Zielscheibendiagramme sind neue grafische Darstellungen, die Ihre klimarelevanten Massnahmen abbilden. Jeder Kreis steht für eine klimarelevante Massnahme und ist farblich gekennzeichnet, wenn die Massnahme umgesetzt wurde. Der Wirksamkeitsgrad der Massnahmen nimmt vom äusseren zum inneren Ring und mit der Farbintensität zu. Je mehr Kreise vom äusseren zum inneren Kreis farblich markiert sind, desto ambitionierter sind die Klimamassnahmen Ihrer Institution. Weitere Informationen zu den einzelnen in den Kreisen dargestellten Massnahmen finden Sie im Annex. 
+\end{minipage}
+}
+
+\begin{esbox}{Initiativen, Klimastrategie und Berichterstattung}[\engagementImage]
+
+Auf der linken Seite sehen Sie die Initiativen, an denen Sie beteiligt sind. Je grösser die Schriftgrösse, desto mehr Peers sind daran beteiligt. In der Mitte sehen Sie ein Zielscheibendiagramm, das Ihre Klimastrategie darstellt. Auf der rechten Seite sehen Sie, wie viele Ihrer Peers alle drei Klimastrategien anwenden, was als Best Practice gilt.
+
+\begin{center}
+\begin{minipage}{0.4\textwidth}
+```
+
+```{r plots_overview_left, out.width="\\linewidth"}
+knitr::include_graphics(file.path(survey_dir, language, "plot_wordcloud.png"))
+```
+
+```{=latex}
+\end{minipage}%
+\hspace{0.15\textwidth}
+\begin{minipage}{0.4\textwidth}
+```
+
+
+```{r plots_overview_right, out.width="\\linewidth"}
+knitr::include_graphics(file.path(survey_dir, language, "plot_layer_with_peer_info_climate_goals.png"))
+```
+
+```{=latex}
+
+\end{minipage}%
+\end{center}
+
+(Links) Initiativen, an denen Sie (dunkelblau) und Ihre Peers (hellblau) beteiligt sind. (Rechts) Von Ihnen angewandte Klimastrategien im Vergleich zu denen Ihrer Peers.
+
+\end{esbox}
+
+\begin{esbox}{Engagement bei Portfoliounternehmen nach Sektor}[\engagementImage]
+
+Untersuchungen zeigen, dass Engagement eine der effektivsten Methoden zur Verbesserung der Klimaausrichtung von investierten Unternehmen ist. Die nachstehenden Zielscheibendiagramme zeigen Ihre Engagement-Massnahmen für drei klimarelevante Sektoren und ergänzen damit den vorherigen Abschnitt zur Klimaausrichtung. Daneben wird der Anteil der Peers angegeben, die Best Practices umsetzen, d. h. alle Ebenen abdecken.
+
+\begin{center}
+\begin{minipage}{0.3\textwidth}
+```
+
+```{r plot_layer_with_peer_info_engagement_left, out.width="\\linewidth"}
+knitr::include_graphics(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Fossil_Fuels.png")
+)
+```
+
+```{=latex}
+\end{minipage}%
+\begin{minipage}{0.3\textwidth}
+```
+
+
+```{r plot_layer_with_peer_info_engagement_center, out.width="\\linewidth"}
+knitr::include_graphics(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Power.png")
+)
+```
+
+```{=latex}
+\end{minipage}%
+\begin{minipage}{0.3\textwidth}
+```
+
+
+```{r plot_layer_with_peer_info_engagement_right, out.width="\\linewidth"}
+knitr::include_graphics(c(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Automotive.png")
+))
+```
+
+```{=latex}
+\end{minipage}%
+
+Engagement und Peer-Vergleich je Sektor. Links: Fossile Brennstoffe, Mitte: Automobilindustrie, Rechts: Stromerzeugung.
+
+\end{center}
+
+\end{esbox}
+
+\begin{esbox}{Negativ-Screening vs. PACTA-Exposition gegenüber der fossilen Energiebranche}[\engagementImage]
+
+In diesen Grafiken werden die gemeldeten Klimastrategien mit der Exposition gegenüber dem Kohlebergbau sowie der Öl- und Gasförderung verglichen. Wenn Ausschlussstrategien auf institutioneller Ebene angewendet werden, dürfte die Exposition gegenüber diesen Technologien im Vergleich zu den Portfolios Ihrer Peers gleich Null oder sehr gering sein.
+
+\begin{center}
+```
+
+```{r plot_exclusion_coal, fig.width=10, fig.height=3.5}
+plot_bo_c_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_coal_Corporate_bonds.png"
+    )
+  )
+)
+
+data_exposures_survey_b <- prep_exposures_survey(results_portfolio,
+                                               peers_results_aggregated,
+                                             sector = "coal",
+                                             asset_class = "bonds")
+
+plot_bo_c_exp <- (patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_b) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1)))
+
+plot_eq_c_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_coal_Listed_equities.png"
+    )
+  )
+)
+
+data_exposures_survey_e <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "coal",
+                                             asset_class = "equity")
+
+plot_eq_c_exp <- (patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_e) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1)))
+
+patchwork::wrap_elements(plot_bo_c_survey) + patchwork::wrap_elements(plot_bo_c_exp) +
+  patchwork::wrap_elements(plot_eq_c_survey) + patchwork::wrap_elements(plot_eq_c_exp) +
+  patchwork::plot_layout(widths = c(1, 1.2, 1, 1.2))
+```
+
+```{=latex}
+
+Ausschlussstrategien für Kohle, verglichen mit PACTA Exposition in Unternahmensanleihen (links) und Aktien (rechts).
+
+```
+
+
+```{r plot_exclusion_oil_gas, fig.width=10, fig.height=3.5}
+plot_bo_og_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+  file.path(
+    survey_dir, 
+    language, 
+    "plot_layer_asset_exclusion_oil_Corporate_bonds.png"
+    )
+  )
+)
+
+data_exposures_survey_b <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "oil_and_gas",
+                                             asset_class = "bonds")
+
+plot_bo_og_exp <- patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_b) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1))
+
+plot_eq_og_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_oil_Listed_equities.png"
+      )
+  )
+)
+
+data_exposures_survey_e <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "oil_and_gas",
+                                             asset_class = "equity")
+
+plot_eq_og_exp <- patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_e) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1))
+
+patchwork::wrap_elements(plot_bo_og_survey) + patchwork::wrap_elements(plot_bo_og_exp) +
+  patchwork::wrap_elements(plot_eq_og_survey) + patchwork::wrap_elements(plot_eq_og_exp) +
+  patchwork::plot_layout(widths = c(1, 1.2, 1, 1.2))
+```
+
+Ausschlussstrategien für Öl und Gas, verglichen mit PACTA Exposition in Unternahmensanleihen (links) und Aktien (rechts).
+
+```{=latex}
+\end{center}
+\end{esbox}
+\newpage
+```
+
diff --git a/inst/extdata/PA2024CH_de_exec_summary/template.Rmd b/inst/extdata/PA2024CH_de_exec_summary/template.Rmd
new file mode 100644
index 00000000..8521183d
--- /dev/null
+++ b/inst/extdata/PA2024CH_de_exec_summary/template.Rmd
@@ -0,0 +1,727 @@
+---
+output:
+  pdf_document:
+    latex_engine: xelatex
+    includes:
+      in_header: "preamble.tex"
+fontsize: 10pt
+always_allow_html: true
+params:
+  survey_dir: NULL
+  real_estate_dir: NULL
+  real_estate_flag: FALSE
+  score_card_dir: NULL
+  language: EN
+  investor_name: investor
+  portfolio_name: portfolio
+  peer_group: pensionfund
+  audit_data: NULL
+  total_portfolio: NULL
+  scenario_selected: NULL
+  emissions_data: NULL
+  results_portfolio: NULL
+  peers_results_aggregated: NULL
+  peers_results_individual: NULL
+  indices_results_portfolio: NULL
+  currency_exchange_value: NULL
+  log_dir: NULL
+---
+
+```{=latex}
+% please note that LaTeX has semantic whitespace, espescially line
+% breaks. Adjust or add carefully.
+% There are also spots where a comment character (%) is used
+% semantically, to suppress whitespace from being inserted (generally at
+% the end of an environment)
+```
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE, 
+                      error=FALSE, fig.keep='all')
+
+survey_dir <- params$survey_dir
+real_estate_dir <- params$real_estate_dir
+score_card_dir <- params$score_card_dir
+investor_name <- params$investor_name
+portfolio_name <- params$portfolio_name
+peer_group <- params$peer_group
+scenario_selected <- params$scenario_selected
+currency_exchange_value <- params$currency_exchange_value
+log_dir <- params$log_dir
+
+results_portfolio <- params$results_portfolio
+peers_results_individual <- params$peers_results_individual
+peers_results_aggregated <- params$peers_results_aggregated
+indices_results_portfolio <- params$indices_results_portfolio
+total_portfolio <- params$total_portfolio
+audit_data <- params$audit_data
+emissions_data <- params$emissions_data
+```
+
+---
+title: "Zusammenfassung"
+subtitle:  |  
+  | PACTA-Klimatest Schweiz 2024
+  | Ergebnisse von `r investor_name`
+---
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+\begin{esbox}[0.25\textwidth]{Inhalt}
+
+\begin{enumerate}
+\item Aktien und Unternehmensanleihen (Übersicht)
+\item Aktien und Unternehmensanleihen (heute und zukünftig)
+\item Umfrage
+\item Immobilien und Hypotheken
+\item Anhang (Erläuterungen zu Grafiken; FAQs)
+\item PACTA-basierte Scorecard entlang der Swiss Climate Scores
+\end{enumerate}
+
+\end{esbox}%
+\begin{esbox}[0.75\textwidth]{Über den PACTA-Klimatest 2022}
+```
+
+```{r number_peer, fig.height = 6}
+number_peers <- readr::read_csv(
+  file.path(score_card_dir, "number_peers.csv"),
+  col_types = readr::cols_only(
+    organization_type = "c",
+    n = "n"
+  )
+) %>% 
+  dplyr::filter(.data$organization_type == .env$peer_group) %>% 
+  dplyr::pull("n")
+```
+
+```{=latex}
+
+Die Schweiz und ihr Finanzmarkt haben sich zum Übergang zu Netto-Null-Treibhausgasemissionen bis 2050 verpflichtet, um die Ziele aus dem Klimaübereinkommen von Paris zur Begrenzung der globalen Erwärmung auf deutlich unter 2\textdegree C zu erreichen und ihre Bemühungen zur Begrenzung auf 1,5\textdegree C fortzusetzen. Der PACTA-Klimatest 2022 liefert vergleichbare Daten über die Fortschritte des Schweizer Finanzmarktes und der einzelnen teilnehmenden Finanzinstitute im Hinblick auf die Erreichung der Klimaziele. \startunderscoreletter `r gsub("&", "\\&", stringr::str_to_title(investor_name), fixed = TRUE)` \stopunderscoreletter wurde vom BAFU \textbf{(\href{https://www.bafu.admin.ch/bafu/de/home/themen/klima/fachinformationen/klima-und-finanzmarkt.html}{link})} und vom SIF \textbf{(\href{https://www.sif.admin.ch/sif/de/home/finanzmarktpolitik/nachhalt_finanzsektor.html}{link})} mit Unterstützung der Verbände zum Klimatest eingeladen, um seine Finanzportfolios freiwillig untersuchen zu lassen. Der PACTA-Klimatest kombiniert eine quantitative Bewertung von Portfolios aus globalen börsennotierten Aktien und Unternehmensanleihen sowie von Schweizer Immobilien- und Hypothekarportfolios mit einer qualitativen Bewertung weiterer Klimamassnahmen. Insgesamt haben 133 Finanzinstitute teilgenommen, \startunderscoreletter `r number_peers` \stopunderscoreletter davon waren Peers (d. h. Teilnehmer aus dem gleichen Finanzsektor also Pensionskassen, Versicherungen, Banken oder Vermögensverwalter).
+
+
+Diese Kurzfassung ist eine Zusammenfassung der Einzelergebnisse Ihres hochgeladenen Portfolios \startunderscoreletter {`r gsub("&", "\\&", portfolio_name, fixed = TRUE)`}\stopunderscoreletter. \startunderscoreletter `r gsub("&", "\\&", stringr::str_to_title(investor_name), fixed = TRUE))` \stopunderscoreletter hat eine Zusammenfassung pro Portfolio erhalten. Ein detaillierter interaktiver Einzelbericht (pro Portfolio oder gruppiert) kann über einen persönlichen Zugang auf der Transition Monitor Plattform in Deutsch, Französisch und teilweise Englisch eingesehen werden \textbf{\href{https://platform.transitionmonitor.com/}{(link)}}. Ein Metabericht mit anonymisierten und aggregierten Daten aller Teilnehmer sowie Sektorberichte sind auf der Website des BAFU \textbf{(\href{https://www.bafu.admin.ch/bafu/de/home/themen/klima/fachinformationen/klima-und-finanzmarkt.html}{link})} publiziert und stehen zum Download bereit.
+
+\end{esbox}
+
+\begin{esbox}{Messung der Klimaverträglichkeit}
+
+PACTA und das BAFU sind der Ansicht, dass die drei unten aufgeführten Kernfaktoren geeignet sind, um die Ausrichtung an den Klimazielen zu messen. Die Symbole werden in diesem Dokument verwendet, um für jede Grafik die Kategorie anzugeben.
+
+\vspace{1em}
+
+\begin{center}
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\exposureImage[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Exposition:} gibt Aufschluss darüber, wie stark Ihr Portfolio gegenüber klimarelevanten Sektoren, einschliesslich Immobilien, exponiert ist und bietet somit eine Risikoperspektive zur Klimaausrichtung.
+\end{minipage}%
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\alignmentImage%[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Klimaausrichtung:} bewertet die Ausrichtung der Produktionspläne investierter Unternehmen oder der Sanierungspläne für Gebäude auf Klimaszenarien und weist damit jedem Unternehmen und Gebäude Verantwortung zur Klimawirkung und Risiko zu.
+\end{minipage}%
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\engagementImage[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Klima-Engagement und andere qualitative Indikatoren:} Ergänzung der Analyse mit Informationen über Klimamassnahmen, die einen tatsächlichen Einfluss auf das Klima haben können.
+\end{minipage}%
+
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+
+\end{center}
+\end{esbox}
+
+\begin{esbox}{Übersicht über die Ergebnisse von Aktien- und Anleiheportfolios}[\exposureImage]
+
+Die Analyse der Portfolios mit börsennotierten Aktien und Unternehmensanleihen umfasst acht klimarelevante Sektoren*. Für diese Sektoren wurde sowohl die Exposition als auch die Ausrichtung an Klimazielen zur Begrenzung der globalen Erwärmung auf deutlich unter 2 Grad (Klimaübereinkommen von Paris) analysiert. 
+Die Messung der Klimaausrichtung wurde anhand der PACTA-Methode durchgeführt. Bei PACTA werden die zukunftsgerichteten Produktionspläne aller investierten Unternehmen in den PACTA-Sektoren auf Technologieebene mit den Zielen aus Klimaszenarien verglichen. Weitere Informationen über die PACTA-Methode finden Sie auf dem PACTA Knowledge Hub \textbf{(\href{https://rmi.gitbook.io/pacta-knowledge-hub/}{link})}.
+
+
+```
+
+```{r diagram, fig.width=8, fig.height=2}
+tryCatch(
+  {
+    data_diagram <- prep_diagram(
+      audit_data = audit_data,
+      emissions_data = emissions_data,
+      currency_exchange_value = currency_exchange_value
+    )
+    plot_diagram(data_diagram)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_diagram(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+```
+
+```{=latex}
+
+\raggedleft\footnotesize{* Kohle, Öl und Gas, Elektrizität, Automobilindustrie, Zement, Stahl und Luftfahrt}
+
+\end{esbox}
+
+\newpage
+
+\section{Ergebnisse von Aktien- und Unternehmensanleiheportfolios}
+
+\begin{esbox}{Ist-Zustand (PACTA-Sektoren)}[\exposureImage]
+
+%FIXME: make footnote
+\textbf{Exposition gegenüber klimarelevanten Sektoren und Technologien in \% des verwalteten Vermögens}
+
+Die Grafik zeigt die Exposition gegenüber Unternehmen mit Produktionsstätten in den von PACTA erfassten Teilen der Wertschöpfungskette. Die Exposition gegenüber fossilen Brennstoffen (Förderung von Kohle, Öl, Gas) wird aggregiert und zu Vergleichszwecken zusätzlich einzeln ausgewiesen sowie mit Peers und einem Index verglichen.
+```
+
+```{r exposure, fig.height=3.5, fig.width=6, fig.show='hold', out.width='50%'}
+tryCatch(
+  {
+    data_green_brown_bars <- prep_green_brown_bars(
+      results_portfolio = results_portfolio,
+      scenario_selected = scenario_selected
+    )
+    plot_green_brown_bars(data_green_brown_bars)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_green_brown_bars(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_fossil_bars <- prep_fossil_bars(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected
+    )
+    plot_fossil_bars(data_fossil_bars)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_fossil_bars(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+```
+
+```{=latex}
+
+** Kohlenstoffarme Technologien (low-carbon): erneuerbare Energien und Wasserkraft für die Stromerzeugung und Elektroantrieb für die Automobilindustrie. Kohlenstoffintensive Technologien (high-carbon): Kohle, Öl, Gas für die Stromerzeugung, Hybrid- und Verbrennungsmotoren für die Automobilindustrie.
+
+\end{esbox}
+
+\begin{esbox}{Ist-Zustand und zukünftig (Stromerzeugung)}[\alignmentImage
+\exposureImage]
+
+\textbf{Heutige Exposition vs. zukünftige Ausrichtung im Sektor Stromerzeugung}
+
+Die nachstehende Grafik zeigt die heutige Exposition gegenüber kohlenstoffarmen Technologien und die zukunftsorientierte Ausrichtung auf Klimaszenarien in der Stromerzeugung für Sie und Ihre Peers. Die heutige Exposition gegenüber kohlenstoffarmen Technologien in der Stromerzeugung nimmt nach rechts hin zu, während sich die Klimaausrichtung nach oben verbessert. Um ein 1,5-Grad-Szenario zu erreichen, ist eine erhebliche Kapazitätsausweitung bei den erneuerbaren Energien erforderlich, sodass selbst Unternehmen mit einem hohen Anteil an kohlenstoffarmen Technologien neue Kapazitäten aufbauen müssen, um in der Zukunft klimaverträglich ausgerichtet zu sein. Ein derzeit hoher Anteil an kohlenstoffarmen Technologien und gleichzeitig eine geringe zukünftige Klimaausrichtung würden auf einen Mangel an geplanten Investitionen in erneuerbare Energien hindeuten.
+
+```
+
+```{r scatter, fig.show="hold", out.width="0.4\\textwidth", fig.align='center'}
+
+tryCatch(
+  {
+    data_scatter_power_b <- prep_scatter(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      peers_results_individual = peers_results_individual,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected,
+      asset_class = "bonds"
+    )
+
+    all_entity_types <- length(unique(data_scatter_power_b$entity_type)) == 4
+
+    if (all_entity_types | nrow(data_scatter_power_b) == 0) {
+      plot_scatter(data_scatter_power_b) +
+        patchwork::plot_annotation(
+          title = "Bonds",
+          theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 18))
+        )
+    }
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scatter() for bonds. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_scatter_power_e <- prep_scatter(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      peers_results_individual = peers_results_individual,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected,
+      asset_class = "equity"
+    )
+
+    all_entity_types <- length(unique(data_scatter_power_e$entity_type)) == 4
+
+    if (all_entity_types | nrow(data_scatter_power_e) == 0) {
+      plot_scatter(data_scatter_power_e) +
+        patchwork::plot_annotation(
+          title = "Equity",
+          theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 18))
+        )
+    }
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scatter() for equity. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{esbox}
+
+\begin{esbox}{Zukünftig (Sonstige PACTA-Sektoren)}[\alignmentImage]
+
+\textbf{PACTA Aggregierter Score zur Klimaausrichtung}
+
+Der Aggregierte Score zeigt die Ausrichtung aller Vermögenswerte bis 2026 im Vergleich zum GECO 2021-Szenario. Der Score wird sowohl auf Portfolioebene (siehe auch Indikatoren gemäss "Swiss Climate Scores") als auch für jeden einzelnen PACTA-Sektor (ausser Zement, da nicht in GECO 2021 abgedeckt) berechnet.\footnote{Das GECO-Szenario wurde ausgewählt, da es die meisten PACTA-Sektoren abdeckt. Bitte beachten Sie, dass das GECO-Szenario grössere technologische Veränderungen erst nach dem Zeitraum von fünf Jahren annimmt, der in der PACTA-Analyse berücksichtigt wird. Daher kann ihr Aggregierter Score niedriger ausfallen, wenn ein anderes Szenario zur Berechnung benutzt wird.}
+
+```
+
+```{r scores, fig.show='hold', out.width='0.4\\textwidth', fig.align='center'}
+tryCatch(
+  {
+    data_scores_b <- prep_scores(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "bonds"
+    )
+    plot_scores(data_scores_b) +
+      patchwork::plot_annotation(
+        title = "Bonds",
+        theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 22))
+      )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_scores_e <- prep_scores(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "equity"
+    )
+    plot_scores(data_scores_e) +
+      patchwork::plot_annotation(
+        title = "Equity",
+        theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 22))
+      )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{esbox}
+
+\newpage
+
+\section{Ergebnisse von Aktien- und Unternehmensanleiheportfolios}
+
+\begin{esbox}{Transition}[\alignmentImage \exposureImage]
+
+\textbf{Szenarioausrichtung pro Technologie}
+
+Während der vorangegangene Abschnitt Einblicke in die derzeitige Exposition gegenüber den verschiedenen PACTA-Sektoren sowie einen Überblick über die Ausrichtung auf Gesamt- und Sektorebene lieferte, bietet dieser Abschnitt zusätzliche Informationen über die Verträglichkeit mit dem GECO 2021 Szenario auf Technologieebene für die PACTA Sektoren mit Technologiepfaden.
+
+Die nachstehenden Grafiken zeigen, auf welches Klimaszenario die Technologien in Ihrem Portfolio im Vergleich zu Ihren Peers ausgerichtet sind. Die Position jedes Quadrats in den farblich markierten Rechtecken zeigt das Klimaszenario, auf das Ihr Portfolio und die Portfolios Ihrer Peers in fünf Jahren ausgerichtet sein werden. Die Grösse der Quadrate gibt den Umfang der Exposition (in \% des verwalteten Vermögens) an.
+
+Für mehr Informationen über die Veränderung der Ausrichtung Ihres Portfolios in den nächsten fünf Jahren pro Technologie sei auf die entsprechenden Grafiken im interaktiven Bericht verwiesen. Dort finden Sie auch zusätzliche Informationen auf Unternehmensebene. 
+
+```
+
+```{r alignment_table_bonds, fig.height=4, fig.width=6, fig.align='center'}
+tryCatch(
+  {
+    data_alignment_table <- prep_alignment_table(
+      results_portfolio = results_portfolio, 
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "bonds"
+    )
+    plot_alignment_table(data_alignment_table) +
+    patchwork::plot_annotation(
+      title = "Bonds",
+      theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16))
+    )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_alignment_table() for bonds. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+
+```{r alignment_table_equity, fig.height=4, fig.width=6, fig.align='center'}
+tryCatch(
+  {
+    data_alignment_table <- prep_alignment_table(
+      results_portfolio = results_portfolio, 
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "equity"
+    )
+    plot_alignment_table(data_alignment_table) +
+    patchwork::plot_annotation(
+      title = "Equity",
+      theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16))
+    )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_alignment_table() for equity. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+%FIXME: footnote
+* Erneuerbare Energien: umfasst Solar- und Windenergie, ohne Wasser- und Kernkraft
+
+** Automobilindustrie: umfasst leichte Fahrzeuge (eng. Light-duty vehicles, LDV)
+
+\end{esbox}
+
+\newpage
+```
+
+```{r survey_chapter, child='survey-chapter.Rmd', eval = (dir.exists(survey_dir) & length(list.files(survey_dir)) > 0)}
+```
+
+```{r survey_chapter_alternate, child='survey-chapter-alternate.Rmd', eval = !(dir.exists(survey_dir) & length(list.files(survey_dir)) > 0)}
+```
+
+
+```{r real_estate_chapter, child="real-estate-chapter.Rmd", eval = real_estate_flag}
+```
+
+ <!-- FIXME: Find a more elegant way to make this switch. -->
+```{r real_estate_chapter, child="real-estate-chapter-alternate.Rmd", eval = !real_estate_flag}
+```
+
+```{=latex}
+
+\newpage
+
+\section{Anhang (I): Zusätzliche Erläuterungen zu den Graphen}
+
+\subsection{Exposition gegenüber klimarelevanten Sektoren und Technologien in \% des verwalteten Vermögens} 
+
+
+\begin{minipage}[t]{0.3\linewidth}
+\begin{center}
+\textbf{Alle PACTA-Sektoren}
+
+\includegraphics[width=\textwidth]{chart_sample_1}
+
+\end{center}
+\end{minipage}%
+\begin{minipage}[t]{0.3\linewidth}
+\begin{center}
+\textbf{Fossile Brennstoffe}
+
+\includegraphics[width=\textwidth]{chart_sample_2}
+
+\end{center}
+\end{minipage}%
+
+In der linken Grafik ist ein Balkendiagramm dargestellt, das die Exposition des Portfolios gegenüber jedem der acht PACTA-Sektoren zeigt in Prozent des verwalteten Vermögens.  Die Balken sind nach dem Umfang der Exposition in absteigender Reihenfolge angeordnet. Zusätzlich wird eine Aufteilung der Technologien (kohlenstoffarm, kohlenstoffintensiv, nicht spezifiziert) für die Sektoren vorgenommen, für die eine solche Aufteilung definiert ist. Die rechte Grafik zeigt die Exposition gegenüber dem Sektor der Förderung fossiler Brennstoffe als Aufteilung auf die verschiedenen fossilen Brennstoffe Kohle, Öl und Gas. Zudem ist ein Vergleich mit den Peers (Pensionskassen, Versicherungen, Banken oder Vermögensverwalter) sowie mit einem ETF für den MSCI World Index ersichtlich.
+
+\subsection{Derzeitige Exposition vs. zukünftige Ausrichtung in der Stromerzeugung}
+
+
+\includegraphics[width=0.5\textwidth]{chart_sample_3}
+
+Diese Grafik zeigt die derzeitige Exposition gegenüber kohlenstoffarmen Technologien (Prozentsatz der Sektorexposition, x-Achse) und die Klimaausrichtung auf Sektorebene (Klimaausrichtungs-Score, y-Achse). Die farbigen Punkte stellen verschiedene Einheiten (Portfolio, Durchschnitt aller Teilnehmenden, Durchschnitt der Peers) dar. Die Grafik lässt Rückschlüsse auf die Beziehung zwischen den beiden Werten zu und liefert Kontext für den Klimaausrichtungs-Score. Die ideale Position ist in der oberen rechten Ecke (hohe Exposition gegenüber kohlenstoffarmen Stromquellen und hohe Klimaausrichtung). Die untere linke Ecke ist die am wenigsten erwünschte Position (geringe Exposition gegenüber kohlenstoffarmen Stromquellen und geringe Klimaausrichtung). 
+
+
+\newpage
+
+\section{Anhang (I): Zusätzliche Erläuterungen zu den Graphen}
+
+\subsection{Gesamtscore zur Klimaausrichtung}
+
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{chart_sample_4}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Diese Grafik stellt die Klimaausrichtungs-Scores sowohl insgesamt (Balken ganz links) als auch für jeden Sektor dar. Das grössere, dunkelblaue Dreieck zeigt das Ergebnis für dieses Portfolio an, das kleinere graue Dreieck das durchschnittliche Ergebnis der Peers. Die horizontale Linie stellt den Grenzwert für die Erreichung des Klimaziels von 1,8\textdegree C (oder höher) dar. Der 1,8\textdegree C-Pfad entspricht dem Ziel des Klimaübereinkommens von Paris, die globale Erwärmung auf „deutlich unter 2\textdegree C“ zu begrenzen. Die Scores geben an, welchem Szenario die Produktionspläne der investierten Unternehmen entsprechen. Weitere Informationen dazu entnehmen Sie den beiden folgenden Abbildungen. 
+
+\end{minipage}%
+
+\subsection{Szenariowahl und -abstufungen}
+
+Diese Tabelle zeigt die Vorgaben für die Szenarien zur Festlegung der Scores. Für jeden Score sind die Anforderungen in Bezug auf jedes Szenario in der gleichen Zeile aufgeführt. Mehr Erklärungen zu den Szenarien finden Sie im interaktiven Testbericht.
+
+\begin{center}
+\includegraphics[width=\textwidth]{table_scenario_grading}
+\end{center}
+
+
+\subsection{Beispiel eines Produktionsplans für eine grüne Technologie entsprechend den Scores.}
+
+Die folgende Grafik zeigt die Anforderungen in Bezug auf den Gesamtscore zur Klimaausrichtung anhand eines exemplarischen Produktionsplans für eine grüne Technologie. Zur Ermittlung des Gesamtscores werden die einzelnen Sektor-Scores summiert. 
+
+
+\begin{center}
+\includegraphics{chart_scenario_grading}
+\end{center}
+
+\newpage
+
+\section{Anhang (II): Zusätzliche Erläuterungen zu den Graphen}
+
+\subsection{Zielscheibendiagramm: allgemeine Klimastrategien}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+\includegraphics{chart_sample_5}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+
+Dieses Zielscheibendiagramm zeigt, ob gemäss Ihren Antworten Ihr Finanzinstitut als Ganzes über Klimabelange Bericht erstattet, eine Klimastrategie verfolgt und konkrete Klimaziele hat. Es wird davon ausgegangen, dass die Wirksamkeit vom ersten, äusseren Kreis zum dritten, inneren Kreis zunimmt. Als Best Practice wird definiert, dass alle drei Ebenen abgedeckt sind.
+Transparenz durch Berichterstattung ist ein erster Schritt in die richtige Richtung, aber letztlich muss ein konkretes Klimaziel gesetzt und dessen Erreichung mittels einer glaubwürdigen Klimastrategie unterstützt werden, um eine Veränderung zu bewirken. 
+
+
+\end{minipage}%
+
+\subsection{Zielscheibendiagramm: Engagement bei Portfoliounternehmen in den Sektoren fossile Brennstoffe, Automobil und Stromerzeugung}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+
+\includegraphics[width=\textwidth]{chart_sample_6}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Dieses Zielscheibendiagramm zeigt, welche Engagement-Massnahmen Ihr Finanzinstitut gemäss Ihren Antworten ergreift. Dazu gehören zunächst eine Engagement-Politik, deren Wirksamkeit durch ein spezielles Engagement-Team und schliesslich durch gemeinsames Engagement mit anderen Organisationen verbessert werden kann. Als Best Practice wird definiert, dass alle drei Ebenen abgedeckt sind.
+Die Grafik wird für die Sektoren fossile Brennstoffe, Automobil und Stromerzeugung getrennt dargestellt, da diese (i) als die klimarelevantesten Sektoren gelten und (ii) es für diese kohlenstoffarme Substitute gibt, die es Investoren ermöglichen, den Wechsel zu bestehenden Technologien zu unterstützen. 
+Gemeinsames Engagement als Möglichkeit zur Steigerung der Wirksamkeit von Engagement-Praktiken wird in der Literatur aufgegriffen und beispielsweise von der NZAOA unterstützt 
+\textbf{\href{https://www.unepfi.org/wordpress/wp-content/uploads/2022/03/NZAOA_The-future-of-investor-engagement.pdf}{(link)}}.
+
+
+\end{minipage}%
+
+\subsection{Zielscheibendiagramm: Negativ-Screening im Öl- und Gassektor sowie im Kohlesektor}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+
+\includegraphics[width=\textwidth]{chart_sample_7}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Dieses Zielscheibendiagramm zeigt, ob gemäss Ihren Antworten Ihr Finanzinstitut als Ganzes Ausschlusskriterien festgelegt hat, Untergewichtungen in den jeweiligen Sektoren vornimmt sowie Unternehmen aus dem Anlageuniversum ausschliesst, wenn die Massnahmen Ihres Finanzinstituts nicht erfolgreich waren. Als Best Practice wird definiert, dass alle drei Ebenen abgedeckt sind.
+Das Zielscheibendiagramm wird für den Kohle- sowie für den Öl- und Gassektor getrennt dargestellt, und die Exposition in den jeweiligen Sektoren wird verglichen. Der Vergleich mit der PACTA-Exposition soll Aufschluss über die Wirksamkeit von Negativ-Screenings geben. 
+
+\end{minipage}%
+
+\newpage
+
+\section{Anhang (III): Zusätzliche Erläuterungen zu den Graphen}
+
+\begin{minipage}[t]{0.4\textwidth}
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_map}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Geographische Verortung aller direkt gehaltenen Gebäude in der Schweiz. Die Farbe repräsentiert die Hauptnutzung des jeweiligen Gebäudes.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_energy_carrier}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Anteil der Energieträger bei den direkt gehaltenen Gebäuden bzw. Hypotheken. Es werden die eingereichten bzw. aus dem GWR übernommenen Werte gezeigt. Falls keine der beiden Angaben greifbar ist, wird gemäss BAFU-Vorgabe "Öl" verwendet.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_distribtion}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Mittlere CO\textsubscript{2}-Intensität aller direkt gehaltenen Gebäude bzw. Hypotheken je Teilnehmer. Die rote Säule repräsentiert den Mittelwert der eigenen jeweiligen Portfolios. Die horizontale Linie repräsentiert den Wert 14.9 kg/m\textsuperscript{2} des Absenkpfades "Langfristige Klimastrategie 2050" für das Jahr 2021.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_emissions}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Zeitliche Entwicklung der mittleren CO\textsubscript{2}-Intensität aller direkt gehaltenen Gebäude je Teilnehmer im Vergleich mit dem Absenkpfad gemäss der "Langfristigen Energiestrategie 2050" des Bundes.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_stranded_asset}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Anteile der über bzw. unter dem Absenkpfad gemäss der "Langfristigen Klimastrategie 2050" des Bundes liegenden Hypotheken im Verhältnis zu ihren Hypotheken zum jeweiligen Zeitpunkt. In hellgrün jene Hypotheken, die durch Sanierungsmassnahmen zum jeweiligen Zeitpunkt unter dem Absenkpfad liegen.
+
+\end{minipage}%
+
+\newpage
+
+\section{Anhang (IV): FAQs}
+
+\begin{esbox}{Welches sind die PACTA-Sektoren?}
+
+Die PACTA-Analyse deckt acht klimarelevante Sektoren ab: Kohle, Öl und Gas, Strom, Automobilindustrie, Zement, Stahl und Luftfahrt. In der Regel sind die Portfolios von Finanzinstituten wertemässig zu 5-15\% in diesen Sektoren investiert. Das finanzielle Engagement mag zwar gering erscheinen, aber im Durchschnitt sind die Anlagen für einen viel grösseren Anteil der Emissionen verantwortlich. Nachstehend sind die Grafiken eines Beispielportfolios dargestellt: 
+
+\begin{center}
+
+\begin{minipage}[t]{0.4\textwidth}
+\begin{center}
+\textbf{Finanzielles Engagement}
+
+
+\includegraphics[width=\textwidth]{chart_sample_8}
+
+\end{center}
+
+\end{minipage}%
+\begin{minipage}[t]{0.4\textwidth}
+
+\begin{center}
+\textbf{Emissionsexposition}
+
+
+\includegraphics[width=\textwidth]{chart_sample_9}
+\end{center}
+\end{minipage}
+
+\end{center}
+\end{esbox}
+
+\begin{esbox}{Welche Anlageklassen deckt PACTA ab?}
+
+Die PACTA-Methodik umfasst börsennotierte Aktien und Unternehmensanleihen. Der PACTA-Klimatest Schweiz 2022, der in Zusammenarbeit mit der Wüest Partner AG entwickelt wurde, umfasst auch den Schweizer Immobilien- und Hypothekarmarkt.
+
+\end{esbox}
+
+\begin{esbox}{Wie kann ich meine Ergebnisse für die Berichterstattung verwenden?}
+
+Inwieweit Sie Ihre Ergebnisse nutzen, bleibt Ihnen überlassen. Die Ergebnisse eignen sich jedoch für eine Vielzahl von Berichterstattungsmöglichkeiten, wie z. B.:
+
+\begin{itemize}
+\item Interne Berichterstattung und Kommunikation
+\item Berichterstattung im Umfeld des teilnehmenden Finanzinstituts (Kunden, Versicherte etc.)
+\item Externe Berichterstattung: Umsetzung der Empfehlungen des Bundesrates \textbf{\href{https://www.sif.admin.ch/sif/de/home/dokumentation/medienmitteilungen/medienmitteilungen.msg-id-85925.html}{(link)}} zur Verwendung von vergleichbaren und aussagekräftigen Klimaverträglichkeitsindikatoren zur Schaffung von Transparenz bei allen Finanzprodukten und Kundenportfolios, einschliesslich der Swiss Climate Scores-Indikatoren 
+\textbf{\href{https://www.sif.admin.ch/sif/de/home/swiss-climate-scores/bewertungsparameter.html}{(link)}}.
+\item Details zur Verwendung der Ergebnisse für die Berichterstattung gemäss TCFD, EU-Verordnung über die Offenlegung nachhaltiger Finanzprodukte (SFDR) oder EU-Taxonomie finden Sie im Bericht "The Disclosure Puzzle – the role of PACTA" \textbf{(\href{https://2degrees-investing.org/wp-content/uploads/2020/03/PACTA-disclosures-report.pdf}{link})}.
+\end{itemize}
+
+\end{esbox}
+
+\begin{esbox}{Wo finde ich die vollständigen Ergebnisse dieses Tests (interaktiver Bericht)?}
+
+Diese Kurzfassung dient als Ergänzung zur umfassenden und interaktiven Darstellung Ihrer Ergebnisse im sogenannten interaktiven Testbericht. Diesen können Sie auf der Transition Monitor Plattform unter „Ergebnisse“ („Results“) einsehen, nachdem Sie sich mit Ihrem Passwort angemeldet haben \textbf{(\href{https://platform.transitionmonitor.com/}{link})}.
+
+\end{esbox}
+
+\begin{esbox}{Wo kann ich mehr über die PACTA-Methodik erfahren?}
+
+Mehr über die Open-Source-Methodik hinter PACTA erfahren Sie auf unserem „PACTA Knowledge Hub“ \textbf{(\href{https://rmi.gitbook.io/pacta-knowledge-hub/}{link})}.
+
+\end{esbox}
+
+\newpage
+
+```
+
+```{r scorecard, child='scorecard.Rmd'}
+```
+
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_1.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_1.png
new file mode 100644
index 00000000..ca17acf5
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_1.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_2.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_2.png
new file mode 100644
index 00000000..97c1d821
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_2.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_3.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_3.png
new file mode 100644
index 00000000..ce016923
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_3.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_4.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_4.png
new file mode 100644
index 00000000..5563da05
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_4.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_5.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_5.png
new file mode 100644
index 00000000..1bc671e3
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_5.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_6.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_6.png
new file mode 100644
index 00000000..afaf6146
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_6.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_7.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_7.png
new file mode 100644
index 00000000..e9af58b3
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_7.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_8.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_8.png
new file mode 100644
index 00000000..6b73f964
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_8.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_9.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_9.png
new file mode 100644
index 00000000..872390be
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_sample_9.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/chart_scenario_grading.png b/inst/extdata/PA2024CH_en_exec_summary/img/chart_scenario_grading.png
new file mode 100644
index 00000000..a1178b92
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/chart_scenario_grading.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/symbol_alignment.png b/inst/extdata/PA2024CH_en_exec_summary/img/symbol_alignment.png
new file mode 100644
index 00000000..b0f5d841
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/symbol_alignment.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/symbol_engagement.png b/inst/extdata/PA2024CH_en_exec_summary/img/symbol_engagement.png
new file mode 100644
index 00000000..d6b1f54e
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/symbol_engagement.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/symbol_exposure.png b/inst/extdata/PA2024CH_en_exec_summary/img/symbol_exposure.png
new file mode 100644
index 00000000..3ca002b5
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/symbol_exposure.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/img/table_scenario_grading.png b/inst/extdata/PA2024CH_en_exec_summary/img/table_scenario_grading.png
new file mode 100644
index 00000000..e75cb95c
Binary files /dev/null and b/inst/extdata/PA2024CH_en_exec_summary/img/table_scenario_grading.png differ
diff --git a/inst/extdata/PA2024CH_en_exec_summary/preamble.tex b/inst/extdata/PA2024CH_en_exec_summary/preamble.tex
new file mode 100644
index 00000000..1b4c581b
--- /dev/null
+++ b/inst/extdata/PA2024CH_en_exec_summary/preamble.tex
@@ -0,0 +1,152 @@
+\usepackage{geometry}
+\usepackage{xparse}
+\usepackage{xcolor}
+\usepackage{mdframed}
+\usepackage{multicol}
+\usepackage{hyperref}
+\usepackage{textcomp}
+
+% \usepackage[default]{opensans}
+\usepackage[T1]{fontenc}
+
+% \usepackage{showframe}
+% \renewcommand*\ShowFrameColor{\color{watermelon}}
+
+\graphicspath{ {img/} }
+
+\geometry{
+a4paper,
+left=0.4in,
+right=0.2in,
+top=0.2in,
+bottom=0.2in,
+headheight=0.0in
+}
+
+\NewDocumentCommand \scorecardGeometry{}{
+  \geometry{
+    a4paper,
+    left=0.2in,
+    right=0.2in,
+    top=0.2in,
+    bottom=0.2in,
+    headheight=0.0in
+  }
+}
+
+\definecolor{esLightGray}{HTML}{F2F2F2}
+\definecolor{scBlueGray}{HTML}{475767}
+\definecolor{watermelon}{HTML}{B4Da55}
+\definecolor{candy}{HTML}{f42069}
+
+% \setsansfont{OpenSans}[
+%     Path = fonts/OpenSans/,
+%     % Scale = 0.9,
+%     Extension = .ttf,
+%     UprightFont = *-Regular,
+%     BoldFont = *-Bold,
+%     ItalicFont = *-Italic,
+%     BoldItalicFont = *-BoldItalic
+%     ]
+
+% \setmainfont{OpenSans}
+\renewcommand{\familydefault}{\sfdefault}
+
+\NewDocumentCommand \verticalAlignImage {}{
+  \strut\vspace*{-\baselineskip}\newline
+}
+
+\NewDocumentCommand \centeredImage{ o m }{
+  \begingroup
+  \setbox0=\hbox{
+  \IfValueTF{#1}{
+    \includegraphics[#1, keepaspectratio]{#2}
+  }{
+    \includegraphics{#2}
+  }
+  }
+  \parbox{\wd0}{\box0}\endgroup
+}
+
+\NewDocumentCommand \exposureImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_exposure}
+  }{
+    \centeredImage{symbol_exposure}
+  }
+}
+
+\NewDocumentCommand \alignmentImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_alignment}
+  }{
+    \centeredImage{symbol_alignment}
+  }
+}
+
+\NewDocumentCommand \engagementImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_engagement}
+  }{
+    \centeredImage{symbol_engagement}
+  }
+}
+
+\mdfdefinestyle{esstyle}{
+  frametitlebackgroundcolor = esLightGray,
+  linecolor=white,
+  linewidth=0,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0
+}
+
+\mdfdefinestyle{scheaderstyle}{
+  backgroundcolor = scBlueGray,
+  linecolor=white,
+  linewidth=0,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0,
+  innerrightmargin=0.7em,
+  rightmargin=0.0em,
+  innerleftmargin=0.7em,
+  leftmargin=0.0em,
+  fontcolor=white
+}
+
+
+\mdfdefinestyle{debugstyle}{
+  frametitlebackgroundcolor = watermelon,
+  linecolor = candy,
+  linewidth = 2pt,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0
+}
+
+\NewDocumentCommand \esboxTitleString{ m o }{
+  % \Large#1\vrule{24pt}{2pt}%
+  \Large#1%
+  \IfValueT{#2}{\hfill {#2}}
+}
+
+\NewDocumentEnvironment{esbox}{ O{\textwidth} m o }
+{% begin code
+  \begin{minipage}[t]{#1}%
+  \begin{mdframed}[style=esstyle, frametitle={\esboxTitleString{#2}[#3]}]%
+}
+{ % enddef
+  \end{mdframed}%
+  \end{minipage}%
+}%
+
+\NewDocumentEnvironment{scheader}{ O{\textwidth}}
+{% begin code
+  \begin{minipage}[t]{#1}%
+  \begin{mdframed}[style=scheaderstyle]%
+}
+{ % enddef
+  \end{mdframed}%
+  \end{minipage}%
+}%
+
+\newcommand{\startunderscoreletter}{\catcode`_ 12\relax}
+\newcommand{\stopunderscoreletter}{\catcode`_ 8\relax}
diff --git a/inst/extdata/PA2024CH_en_exec_summary/scorecard.Rmd b/inst/extdata/PA2024CH_en_exec_summary/scorecard.Rmd
new file mode 100644
index 00000000..9e5ca8a0
--- /dev/null
+++ b/inst/extdata/PA2024CH_en_exec_summary/scorecard.Rmd
@@ -0,0 +1,622 @@
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+\begin{scheader}
+\section{Climate Score Indicators}
+
+
+\subsection{PACTA Executive Summary 2022}
+
+The following three pages of the “Climate Scores” complement the PACTA Executive Summary by showing automatically generated results on portfolio-level, based on the Swiss Climate Scores. As the Swiss Climate Scores \textbf{\href{https://www.sif.admin.ch/sif/en/home/finanzmarktpolitik/sustainable-finance.html}{(link)}} were defined during the PACTA Climate Test 2022, there are some deviations which are noted on the explanation page. Please note that the indicators on exposure to fossil fuels and the Global Warming Alignment are based on the PACTA methodology and sectors.
+
+\end{scheader}
+```
+
+```{=latex}
+\subsection{CURRENT STATE}
+
+\begin{multicols}{2}
+
+\textbf{Carbon Footprint}
+
+All sources of carbon emissions from invested companies (scope 1-3) are included in the estimation.
+
+```
+
+```{r emissions_scorecard, fig.height=2.7}
+
+tryCatch(
+  {
+    data_emissions_scorecard <- prep_emissions_scorecard(
+      emissions_data = emissions_data,
+      audit_data = audit_data,
+      currency_exchange_value = currency_exchange_value
+    )
+    plot_emissions_scorecard(data_emissions_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_emissions_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{r emissions_scorecard_info}
+total_portfolio_value_curr <- audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::mutate(value_usd = dplyr::if_else(value_usd < 0, 0, value_usd)) %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)
+
+total_portfolio_percentage_equity <- (audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::filter(.data$asset_type == "Equity") %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)) /
+  total_portfolio_value_curr
+
+total_portfolio_percentage_bonds <- (audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::filter(.data$asset_type == "Bonds") %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)) /
+  total_portfolio_value_curr
+
+total_portfolio_percentage_coverage <- (total_portfolio_percentage_equity + total_portfolio_percentage_bonds)
+  
+```
+
+```{=latex}
+
+Benchmark:
+
+\begin{center}
+\begin{tabular}{ p{0.5\linewidth} p{0.5\linewidth} } 
+ \hline
+ Listed Equity & Corporate Bonds \\ 
+ \hline
+ iShares MSCI World ETF & iShares Global Corp Bond UCITS ETF \\ 
+ \hline
+\end{tabular}
+\end{center}
+
+Portfolio assets covered by assessment: \textbf{`r round(total_portfolio_percentage_coverage * 100)` \%}
+
+\vfill\null
+\columnbreak
+
+\textbf{Exposure to fossil fuels and renewable power, based on PACTA methodology}
+
+There is scientific consensus on the need to phase-out coal, stop financing new fossil fuel projects, and to increase renewable power capacity. Below figure shows the financial exposure (as AUM in \%) of this portfolio to technologies in the industries coal mining, oil and gas upstream, fossil fuel power production, and renewable power production. The PACTA exposure is based on production capacities and not on revenues. 
+
+```
+
+```{r exposures_scorecard, fig.height=2.5}
+
+tryCatch(
+  {
+    data_exposures_scorecard <- prep_exposures_scorecard(results_portfolio)
+    plot_exposures_scorecard(data_exposures_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_exposures_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{multicols}
+
+\subsection{TRANSITION TO NET ZERO}
+
+\begin{multicols}{2}
+\textbf{PACTA Aggregated Climate Alignment Score}
+
+```
+
+```{r scores_scorecard, fig.height=3}
+tryCatch(
+  {
+    data_scores_scorecard <- prep_scores_scorecard(results_portfolio)
+    plot_scores_scorecard(data_scores_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{r emissions_covered}
+
+aggregate_score_emissions_covered_perc <- prep_scores_emissions_scorecard(
+  emissions_data,
+  log_dir = log_dir
+)
+
+aggregate_score_exposure_covered_perc <- prep_scores_exposure_scorecard(
+  audit_data = audit_data,
+  currency_exchange_value = currency_exchange_value,
+  total_portfolio_value_curr = total_portfolio_value_curr,
+  log_dir = log_dir
+)
+
+```
+
+```{=latex}
+
+Portfolio emissions covered by assessment: \textbf{`r round(aggregate_score_emissions_covered_perc * 100)` \%}
+
+Portfolio assets covered by assessment: \textbf{`r round(aggregate_score_exposure_covered_perc * 100)` \%}
+
+Climate scenario used: \textbf{GECO 2021}
+
+\vfill\null
+\columnbreak
+
+This score represents the estimated aggregate alignment of the PACTA sectors (except for cement) in the portfolio with respect to the GECO 2021 scenarios. Please bear in mind that the interpretation of this score should be accompanied by an analysis of the underlying results and investment strategy used in each one of the analysed sectors, given the assumptions that an aggregated metric is based on. Some portfolios with climate objectives may intentionally include investments in companies that are not yet on track to achieve 1.5\textdegree C alignment, seeking instead to contribute actively to climate goals by improving the alignment of investee companies to bring a larger share of the economy into alignment over time. The combined set of indicators above and their display are considered by the Swiss government to represent the current best-practice in providing science-based transparency on the alignment of portfolio assets with global climate goals.
+
+\end{multicols}
+```
+
+\newpage
+
+```{=latex}
+\begin{multicols}{2}
+
+\subsection{Verified Commitments to Net-Zero}
+
+Companies are increasingly making voluntary commitments to transition to net-zero and set interim targets. The effectiveness of such commitments depends on whether interim targets are credible, science-based, and transparent. The following information is based on information from \href{https://sciencebasedtargets.org/companies-taking-action}{SBTi}.
+
+```
+
+```{r sbti_net_zero_commitments}
+fin_data_net_zero_targets <- readr::read_csv(
+  file.path(score_card_dir, "fin_data_net_zero_targets.csv"),
+  col_types = readr::cols_only(
+    isin = "c",
+    asset_type = "c",
+    factset_entity_id = "c"
+  )
+)
+
+peer_group_share_net_zero <- readr::read_csv(
+  file.path(score_card_dir, "peer_group_share_net_zero.csv"),
+  col_types = readr::cols_only(
+    investor_name = "c",
+    portfolio_name = "c",
+    share_net_zero = "n"
+  )
+)
+
+data_prep_net_zero_commitments <- prep_net_zero_commitments(
+  total_portfolio = total_portfolio,
+  peer_group = peer_group,
+  net_zero_targets = fin_data_net_zero_targets,
+  peer_group_share_net_zero = peer_group_share_net_zero
+)
+
+```
+
+```{=latex}
+
+\begin{itemize}
+\item Share of companies in portfolio with verified commitments to net-zero and credible near term targets: \textbf{`r round(data_prep_net_zero_commitments %>% dplyr::filter(.data$portfolio_name == "this_portfolio") %>% dplyr::pull("share_net_zero") * 100, 1)` \%}
+
+\item Average share of companies in peer portfolios with verified commitments to net-zero and credible interim targets: \textbf{`r round(data_prep_net_zero_commitments %>% dplyr::filter(.data$portfolio_name == peer_group) %>% dplyr::pull("share_net_zero") * 100, 1)` \%}
+\end{itemize}
+```
+
+```{=latex}
+\subsection{Real Estate Score}
+```
+
+```{r real_estate_scores_scorecard, fig.height=3}
+
+if (real_estate_flag){
+
+  tryCatch(
+   {
+      real_estate_data <- jsonlite::read_json(
+        path = file.path(real_estate_dir, "data", "data.json")
+        )[["exec_sum"]]
+    
+      re_data_scores_scorecard <- tibble(
+        asset_class = c("directly held", "mortgages"),
+        score = c(
+          real_estate_data[["real_estate"]][["co2eq_emissions_grade"]],
+          real_estate_data[["mortgage"]][["co2eq_emissions_grade"]]
+        )
+        ) %>%
+      dplyr::mutate(score = dplyr::if_else(score %in% LETTERS[6:28], "E", score))
+
+      plot_scores_scorecard_real_estate(
+        data = re_data_scores_scorecard
+      )
+    },
+    error = function(e) {
+      write_log(
+        "ES: There was an error in prep/plot_scores_scorecard_real_estate(). Returning empty plot object.\n",
+        file_path = log_dir
+      )
+      empty_plot_error_message()
+    }
+  )
+} else {
+  empty_plot_no_data_message()
+}
+
+```
+
+```{=latex}
+
+\subsection{Swiss real estate and mortgages}
+
+CO\textsubscript{2} intensity according to GEAK classes (Means of the participant)
+
+\begin{itemize}
+\item Directly held buildings:
+`r tryCatch({real_estate_data[["real_estate"]][["co2eq_emissions"]]}, error = function(e) {NULL})`
+\(\rightarrow\)
+`r tryCatch({real_estate_data[["real_estate"]][["co2eq_emissions_grade"]]}, error = function(e) {NULL})`
+
+\item Mortgages:
+`r tryCatch({real_estate_data[["mortgage"]][["co2eq_emissions"]]}, error = function(e) {NULL})`
+\(\rightarrow\)
+`r tryCatch({real_estate_data[["mortgage"]][["co2eq_emissions_grade"]]}, error = function(e) {NULL})`
+
+\end{itemize}
+
+\vfill\null
+\columnbreak
+```
+
+```{=latex}
+\subsection{Overall Climate Strategy including Credible Climate Stewardship}
+
+Financial institutions can contribute to the transition to net-zero, by engaging with invested companies on third-party verified, science-based net-zero aligned transition plans until 2050.
+
+```
+
+```{r climate_strategy_initiatives}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"))) {
+  user_climate_strategy_scorecard_initiatives <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"),
+    col_types = readr::cols_only(
+      user_id = "n",
+      peer_group = "c",
+      name_climate_initiative = "c",
+      climate_initiative = "l"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_initiatives <- tibble::tibble(
+    user_id = 0,
+    peer_group = peer_group,
+    name_climate_initiative = NA_character_,
+    climate_initiative = NA
+  )
+}
+
+peers_climate_strategy_scorecard_initiatives <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_initiatives.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    n = "n",
+    peers_yes = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_initiatives <- prep_climate_strategy_scorecard_initiatives(
+  data = user_climate_strategy_scorecard_initiatives,
+  data_peers = peers_climate_strategy_scorecard_initiatives,
+  peer_group = peer_group
+)
+
+member_initiatives_portfolio <-
+  data_prep_climate_strategy_scorecard_initiatives$member_initiatives_portfolio
+
+member_initiatives_peers <-
+  data_prep_climate_strategy_scorecard_initiatives$member_initiatives_peers
+
+```
+
+```{=latex}
+
+\begin{itemize}
+\item Is the financial institution member of a climate initiative?
+  \textbf{`r if (member_initiatives_portfolio$yes == 1) {"YES"} else if (member_initiatives_portfolio$yes == 0 & file.exists(file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"))) {"NO"} else {"Not Answered"}`  (Peers:
+   `r round(member_initiatives_peers * 100)` 
+  \%)}
+ 
+ `r if (member_initiatives_portfolio$yes == 1) {paste0("Name:", member_initiatives_portfolio$name_climate_initiative)}` 
+
+```
+
+
+```{r climate_strategy_voting_rights}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_voting.csv"))) {
+  user_climate_strategy_scorecard_voting <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_voting.csv"),
+    col_types = readr::cols_only(
+      peer_group = "c",
+      user_id = "n",
+      asset_type = "c",
+      voting_rights = "c"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_voting <- tibble::tibble(
+    peer_group = peer_group,
+    user_id = 0,
+    asset_type = c("INF", "LE", "Other", "PE"),
+    voting_rights = "not_answered"
+  )
+}
+
+peers_climate_strategy_scorecard_voting <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_voting.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    asset_type = "c",
+    n = "n",
+    peers_yes = "n",
+    peers_no = "n",
+    peers_not_answered = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_voting <- prep_climate_strategy_scorecard_voting(
+  data = user_climate_strategy_scorecard_voting,
+  data_peers = peers_climate_strategy_scorecard_voting,
+  peer_group = peer_group
+)
+
+voting_rights_portfolio <-
+  data_prep_climate_strategy_scorecard_voting$voting_rights_portfolio
+
+voting_rights_peers <-
+  data_prep_climate_strategy_scorecard_voting$voting_rights_peers
+
+```
+
+```{=latex}
+
+\item Does the financial institution support climate strategies through voting rights?
+  
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("answer")` LE  (Peers: LE
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "PE") %>% dplyr::pull("answer")` PE  (Peers: PE
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "PE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "INF") %>% dplyr::pull("answer")` INF  (Peers: INF
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "INF") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("answer")` Other assets (Peers: Other assets
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("yes") * 100)` 
+\%)}
+  
+```
+
+```{r climate_strategy_engagement}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_engagement.csv"))) {
+  user_climate_strategy_scorecard_engagement <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_engagement.csv"),
+    col_types = readr::cols_only(
+      peer_group = "c",
+      user_id = "n",
+      asset_type = "c",
+      engagement = "c"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_engagement <- tibble::tibble(
+    peer_group = peer_group,
+    user_id = 0,
+    asset_type = c("CB", "LE", "Other", "RE"),
+    engagement = "not_answered"
+  )
+}
+
+
+peers_climate_strategy_scorecard_engagement <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_engagement.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    asset_type = "c",
+    n = "n",
+    peers_yes = "n",
+    peers_no = "n",
+    peers_not_answered = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_engagement <- prep_climate_strategy_scorecard_engagement(
+  data = user_climate_strategy_scorecard_engagement,
+  data_peers = peers_climate_strategy_scorecard_engagement,
+  peer_group = peer_group
+)
+
+engagement_portfolio <-
+  data_prep_climate_strategy_scorecard_engagement$engagement_portfolio
+
+engagement_peers <-
+  data_prep_climate_strategy_scorecard_engagement$engagement_peers
+
+```
+
+```{=latex}
+
+\item Does the financial institution support climate strategies through engagement measures?
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("answer") ` LE  (Peers: LE
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "CB") %>% dplyr::pull("answer")` CB  (Peers: CB
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "CB") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "RE") %>% dplyr::pull("answer")` RE  (Peers: RE
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "RE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("answer")` Other assets (Peers: Other assets
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("yes") * 100)` 
+\%)}
+
+\end{itemize}
+\end{multicols}
+
+```
+
+\newpage
+
+```{=latex}
+\begin{scheader}
+\section{Climate Score Indicators}
+
+
+\subsection{PACTA Executive Summary 2022}
+
+MINIMUM CRITERIA FOR THE SWISS CLIMATE SCORES AND IMPLEMENTATION IN THE COORDINATEED PACTA CLIMATE TEST
+
+\end{scheader}
+```
+
+### Carbon Footprint
+
+The Carbon footprint indicator includes the carbon footprint (CO~2~e/CHF M invested) but not the carbon intensity (emissions per revenue) as in the Swiss Scores proposal. Hard requirements are met.
+
+Hard Requirements:
+
+* Inclusion of scope 1, 2, and relevant scope 3.
+* Inclusion of scope 3 emissions must at a minimum be aligned to the schedule described in the EU benchmark regulation 2019/2089.
+
+### Exposure to fossil fuels and renewable energy
+
+**Exposure score in this Executive Summary:** varies from the requirements in the Swiss proposal (see below)
+
+The exposure score in this document deviates from the Swiss Scores proposal, as the Swiss Scores were launched while the PACTA Climate Test Switzerland 2022 was already in its development phase. While the Swiss Scores proposal measure the share of companies with fossil fuel activities, the PACTA exposure indicator measures the financial exposure as AUM in \% of this portfolio to the respective technologies. The PACTA exposure is not based on revenue data, but on asset-based company level data representing real-world physical activities. These activities are then attributed to financial securities and afterwards allocated to the portfolio. The portfolio allocation is done with the Portfolio Weight Approach (PA) that calculates the portfolio’s technology exposures based on the weighting of each position within the portfolio. 
+
+Specifications:
+
+* The indicator shows the financial exposure to each technology based on each company’s main sector technology split
+* The indicator is based on physical asset data instead of revenue data
+* The indicator only shows exposure to the core sector of a company (in this case: coal, oil \& gas, power production); i.e., Apple’s power assets are not included as Apple’s core business is not power
+* Thereby, the indicator can show how exposed a portfolio is to different technologies within the same sector (e.g. fossil fuel-based power production vs. renewable power production)
+* The emission scope of activities differ between the sectors and include “mining” for coal, “upstream” for oil and gas, “production” for power. For more information, please refer to the documentation on the aggregated score on the next page
+
+To foster the transition, investments in climate solutions are key and can not be captured by CO~2~-Emission based metrics. Therefore, the exposure chart also includes exposure to renewable power
+
+**Hard requirements for Swiss Scores:**
+
+* The threshold of 5\% of revenues applies both to activities directly linked with the exploration and production of fossil fuels and, if data is readily available, activities financing such production (for coal, according to the global coal exit list or similar).
+* The scope of activities includes the whole value chain, ranging from exploration, extraction, and production (upstream) to transportation and storage (midstream) and refining, marketing, and electrification (downstream).
+
+
+### Real Estate and Mortgages – additional PACTA indicator
+
+By substituting fossil with renewable heating systems and energy efficient refurbishments of buildings, a direct and impactful climate contribution can be achieved. Real estate and mortgage are therefore important asset classes. The figure shows the mean CO~2~ intensity of the participant in the GEAK classes calculated using the PACTA methodology.
+
+### Verified Commitments to Net-Zero 
+
+_Hard requirements are met._
+
+Hard requirements:
+
+* Companies must have publically communicated a pledge to reach net-zero and have near-term targets be certified by one of the following providers: Science based targets initiative (SBTi).
+
+### Management to Net-Zero 
+
+_The information for this indicator was not collected in the PACTA Climate Test 2022 and is therefore not shown._
+
+### Overall Climate Strategy inclucing Credible Climate Stewardship
+
+**Implementation:** deviates from hard requirements for Swiss Climate Scores (see below)
+
+* Climate initiatives should be consistent with the ambition of reaching net-zero by 2050
+  * Implementation:  "Yes" means that at least one initiative is ticked for the user. "No" means that the user has not ticked any initiative. "Name": returns names of all ticked initiatives, but summarises the free field as "Other“
+* Votes should be considered as climate-relevant measure
+
+  * Implementation: "YES (asset type)" means that the user has investment in the asset type AND ticked that they exercise voting rights. "NO" means that the user has investment in the asset type AND NOT ticked that they exercise voting rights. "NOT ANSWERED": means that the user has not indicated that they have investments in the asset type. Peers: Number of users with a YES for the asset type out of all users that have invested in that asset type. Asset types covered are "listed equity (LE)", "private equity (PE)", "infrastructure (INF)", and "Other assets".
+* Engagement strategies should be considered as climate-relevant measure
+  * Implementation: conditions for "YES (asset type)“, “NO”, “NOT ANSWERED” defined as above but for engagement strategies. For “other assets”, the above conditions must apply in at least one of the other assets. Peers: Number of users with a YES for the asset type out of all users that have invested in that asset type. Number of users with YES for other assets out of the number of users that have invested in at least one other asset type. Asset types covered are "listed equity (LE)", "corporate bonds (CB)", "real estate (RE)", and "Other assets".
+
+**Hard requirements:**
+
+* Votes/proxy votes should be consistent with the ambition of reaching net-zero by 2050.
+* Any linked climate engagement strategy should be consistent with the ambition of reaching net-zero by 2050.
+* The escalation procedure is clearly defined and made transparent.
+* An example for a climate engagement initiative is Climate Action 100+
+
+### PACTA Aggregated Climate Alignment Score
+
+**Implementation:**
+
+* PACTA measures alignment of firms’ 5-year forward-looking production plans with the GECO 2021 scenario
+* Sectoral score, aggregated to one score; cement is excluded as it is not covered in GECO 2021
+* Most climate relevant sectors including contributions
+* Use case: 
+  * Financial Institutions can communicate internally and externally about climate performance easily and understandably.
+  * Investors can understand portfolio priorities and get insights into potential long-term transition risks.
+  * Supervisors will be able to understand the FI's position relative to its peers regarding climate change.
+
+**Hard requirements:**
+
+* Be guided by the goal to achieve net zero emissions by 2050, consistent with the 1.5$\text{\textdegree}$C warming limit of the Paris Agreement and in line with the latest IPCC findings.
+* Comply with the technical considerations of the TCFD 2021 PAT report “Measuring Portfolio Alignment – technical considerations”. In particular, comply with:
+  * Select a 1.5$\text{\textdegree}$C scenario that complies, at a minimum, with the scenario selection criteria set out by the Science Based Targets initiative (SBTi) in their document Foundations of Science-Based Target Setting (consideration 7).
+  * Prioritize granular benchmarks where they meaningfully capture material differences in decarbonization feasibility across industries or regions (Consideration 8).
+  * Include Scope 3 emissions for the sectors for which they are most material and for which benchmarks can be easily extracted from existing scenarios (fossil fuels, mining, automotive) (Consideration 11). 
+  * _Addition:_ Note that the PACTA methodology is not based on emissions but on production plans of companies. The production-based analysis however proxies for the following scopes: 
+    * Scope 1 and 2 for steel production
+    * Scope 3 for fossil fuel extraction, automotive manufacturing
+    * Scope 1 for power production, and aviation
+* Allow the Swiss government to disclose aggregate implied temperature scores based on your methodology on the following indices, to compare them with other providers: SMI, MSCI World, MSCI World Materials, MSCI World Industrials, MSCI World Utilities, MSCI World Real Estate.
+
+**Important, but not hard requirements:**
+
+Benchmark used:
+
+* At a minimum, a sub-industry level approach based on external, replicable, scientific sources to benchmarking should be used for high-emitting sectors, with companies allocated a ‘fair share’ of the global carbon budget based on their mix of activities.
+* Climate solutions, especially for the electricity sector should also be covered and compared with the respective scenario, as the scale up of renewable power is a key factor to transition according to the IEA. 
+
+Company long-term targets, near-term action and data sources:
+
+* Include near-term CapEx plans 
+* Use third-party validated data on asset level base where possible. Be as transparent as possible on data sources.
+* Do not allow for avoided emissions data at corporate level, given the lack of standards around corporate level avoided emissions reporting and the technical challenges and issues related to such calculation. Account instead for climate solutions, at minimum for renewable power.
+* _Requirements not met:_
+  * Assess the credibility of companies’ emission reduction plans and take into account whether they are externally validated (such as by SBTi) to be science-based, in line with the goal of achieving net zero by 2050. 
+  * Validate, if the long-term commitments match with the short term action
+  * Inclusion of scope 3 emissions must at a minimum be aligned to the schedule described in the EU benchmark regulation 2019/2089.
+
+To calculate portfolio alignment
+
+* _Addition:_ The PACTA Aggregated Climate Alignment Score is not an Implied Temperature Rise (ITR) score. Therefore, PACTA cannot provide a confidence level for the score itself. Instead, confidence scenarios for the selected scenarios exist and are: 
+  * 50\% probability to not exceed 1.5$\text{\textdegree}$C warming for the 1.5$\text{\textdegree}$C Uniform scenario (GECO 2021)
+  * 50\% probability to not exceed 1.8$\text{\textdegree}$C warming for the 1.8$\text{\textdegree}$C NDC-LTS scenario (GECO 2021)
+  * 50\% probability to not exceed 3.0$\text{\textdegree}$C warming for the 3.0$\text{\textdegree}$C Current Policies Scenario (GECO 2021)
+* _Requirements not met_ as Aggregate score is no ITR.
+  * Implied temperature scores should be calculated using a confidence level of 66\%, rather than 50\%.
+  * Calculate warming scores on a cumulative-emissions basis until 2050, in order to accommodate appropriately the physical relationship between cumulative emissions and warming outcomes.
+
+
diff --git a/inst/extdata/PA2024CH_en_exec_summary/survey-chapter-alternate.Rmd b/inst/extdata/PA2024CH_en_exec_summary/survey-chapter-alternate.Rmd
new file mode 100755
index 00000000..af7b5850
--- /dev/null
+++ b/inst/extdata/PA2024CH_en_exec_summary/survey-chapter-alternate.Rmd
@@ -0,0 +1,5 @@
+## Climate Action Survey
+
+No Climate Action Survey data found
+
+\newpage
diff --git a/inst/extdata/PA2024CH_en_exec_summary/survey-chapter.Rmd b/inst/extdata/PA2024CH_en_exec_summary/survey-chapter.Rmd
new file mode 100644
index 00000000..404f709b
--- /dev/null
+++ b/inst/extdata/PA2024CH_en_exec_summary/survey-chapter.Rmd
@@ -0,0 +1,202 @@
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+
+\section{Climate Action Survey}
+
+This section provides insights in the effectiveness of climate actions on an institutional level. The results base on the complementary qualitative climate action survey. The survey results are compared to peers and the quantitative results of this portfolio. Please note that survey answers were self-reported and not verified by 2DII, RMI, and WP.
+
+\fbox{\begin{minipage}{\textwidth}
+\textbf{Explanation on dart charts below:} The dart charts are a newly developed chart type that depicts your climate-relevant measures. Each circle represents one climate relevant measure and is colored in case the measure is in place. The level of effectiveness of the measures increases from the outer to the inner ring and with colour intensity. The more circles are filled from the outer to the inner circle, the more ambitious are your institution’s climate actions. For more information on the specific measures shown in the layers, please refer to the Annex. 
+\end{minipage}
+}
+
+\begin{esbox}{Overview}[\engagementImage]
+
+On the left hand side, you find the initiatives you are part of. The larger the font size, the more peers are part of it. In the middle, you see a dart chart indicating your climate strategy. On the right, you can see how many of your peers have all three climate strategies in place, which is considered as best practice.
+
+\begin{center}
+\begin{minipage}{0.4\textwidth}
+```
+
+```{r plots_overview_left, out.width="\\linewidth"}
+knitr::include_graphics(file.path(survey_dir, language, "plot_wordcloud.png"))
+```
+
+```{=latex}
+\end{minipage}%
+\hspace{0.15\textwidth}
+\begin{minipage}{0.4\textwidth}
+```
+
+
+```{r plots_overview_right, out.width="\\linewidth"}
+knitr::include_graphics(file.path(survey_dir, language, "plot_layer_with_peer_info_climate_goals.png"))
+```
+
+```{=latex}
+
+\end{minipage}%
+\end{center}
+
+(Left) Initiatives you (dark blue) and your peers (light blue) are part of. (Right) Your climate strategy badge compared and peer comparison.
+
+\end{esbox}
+
+\begin{esbox}{Investee engagement per sector}[\engagementImage]
+
+Research shows that engagement is one of the most effective ways to improve climate goal alignment of companies invested through equity and bonds. Therefore, the engagement dart charts below show your engagement measures for three climate crucial sectors and thereby complement the previous alignment section. The text besides provides a comparison to the share of peers with best practice, i.e., the ones that have all layers covered.
+
+\begin{center}
+\begin{minipage}{0.3\textwidth}
+```
+
+```{r plot_layer_with_peer_info_engagement_left, out.width="\\linewidth"}
+knitr::include_graphics(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Fossil_Fuels.png")
+)
+```
+
+```{=latex}
+\end{minipage}%
+\begin{minipage}{0.3\textwidth}
+```
+
+
+```{r plot_layer_with_peer_info_engagement_center, out.width="\\linewidth"}
+knitr::include_graphics(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Power.png")
+)
+```
+
+```{=latex}
+\end{minipage}%
+\begin{minipage}{0.3\textwidth}
+```
+
+
+```{r plot_layer_with_peer_info_engagement_right, out.width="\\linewidth"}
+knitr::include_graphics(c(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Automotive.png")
+))
+```
+
+```{=latex}
+\end{minipage}%
+
+Engagement badges and peer comparison per sector. Left: Fossil Fuels, Middle: Automotive, Right: Power.
+
+\end{center}
+
+\end{esbox}
+
+\begin{esbox}{Negative screening vs. fossil fuel PACTA exposure}[\engagementImage]
+
+These charts compare the reported climate-aligned strategies to the exposure to coal mining and oil \& gas extraction. If exclusion strategies are applied at an institutional level, it is expected that exposure in these technologies will be zero or very low compared to the total portfolios peers.
+
+\begin{center}
+```
+
+```{r plot_exclusion_coal, fig.width=10, fig.height=3.5}
+plot_bo_c_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_coal_Corporate_bonds.png"
+    )
+  )
+)
+
+data_exposures_survey_b <- prep_exposures_survey(results_portfolio,
+                                               peers_results_aggregated,
+                                             sector = "coal",
+                                             asset_class = "bonds")
+
+plot_bo_c_exp <- (patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_b) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1)))
+
+plot_eq_c_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_coal_Listed_equities.png"
+    )
+  )
+)
+
+data_exposures_survey_e <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "coal",
+                                             asset_class = "equity")
+
+plot_eq_c_exp <- (patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_e) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1)))
+
+patchwork::wrap_elements(plot_bo_c_survey) + patchwork::wrap_elements(plot_bo_c_exp) +
+  patchwork::wrap_elements(plot_eq_c_survey) + patchwork::wrap_elements(plot_eq_c_exp) +
+  patchwork::plot_layout(widths = c(1, 1.2, 1, 1.2))
+```
+
+```{=latex}
+
+Coal exclusion badges compared to PACTA exposure for Corporate bonds (Left) and Listed equity (Right).
+
+```
+
+
+```{r plot_exclusion_oil_gas, fig.width=10, fig.height=3.5}
+plot_bo_og_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+  file.path(
+    survey_dir, 
+    language, 
+    "plot_layer_asset_exclusion_oil_Corporate_bonds.png"
+    )
+  )
+)
+
+data_exposures_survey_b <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "oil_and_gas",
+                                             asset_class = "bonds")
+
+plot_bo_og_exp <- patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_b) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1))
+
+plot_eq_og_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_oil_Listed_equities.png"
+      )
+  )
+)
+
+data_exposures_survey_e <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "oil_and_gas",
+                                             asset_class = "equity")
+
+plot_eq_og_exp <- patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_e) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1))
+
+patchwork::wrap_elements(plot_bo_og_survey) + patchwork::wrap_elements(plot_bo_og_exp) +
+  patchwork::wrap_elements(plot_eq_og_survey) + patchwork::wrap_elements(plot_eq_og_exp) +
+  patchwork::plot_layout(widths = c(1, 1.2, 1, 1.2))
+```
+
+Oil and gas exclusion badges compared to PACTA exposure for Corporate bonds (Left) and Listed equity (Right).
+
+```{=latex}
+\end{center}
+\end{esbox}
+\newpage
+```
+
diff --git a/inst/extdata/PA2024CH_en_exec_summary/template.Rmd b/inst/extdata/PA2024CH_en_exec_summary/template.Rmd
new file mode 100644
index 00000000..cfb6739a
--- /dev/null
+++ b/inst/extdata/PA2024CH_en_exec_summary/template.Rmd
@@ -0,0 +1,728 @@
+---
+output:
+  pdf_document:
+    latex_engine: xelatex
+    includes:
+      in_header: "preamble.tex"
+fontsize: 10pt
+always_allow_html: true
+params:
+  survey_dir: NULL
+  real_estate_dir: NULL
+  real_estate_flag: FALSE
+  score_card_dir: NULL
+  language: EN
+  investor_name: investor
+  portfolio_name: portfolio
+  peer_group: pensionfund
+  audit_data: NULL
+  total_portfolio: NULL
+  scenario_selected: NULL
+  emissions_data: NULL
+  results_portfolio: NULL
+  peers_results_aggregated: NULL
+  peers_results_individual: NULL
+  indices_results_portfolio: NULL
+  currency_exchange_value: NULL
+  log_dir: NULL
+---
+
+```{=latex}
+% please note that LaTeX has semantic whitespace, espescially line
+% breaks. Adjust or add carefully.
+% There are also spots where a comment character (%) is used
+% semantically, to suppress whitespace from being inserted (generally at
+% the end of an environment)
+```
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE, 
+                      error=FALSE, fig.keep='all')
+
+survey_dir <- params$survey_dir
+real_estate_dir <- params$real_estate_dir
+score_card_dir <- params$score_card_dir
+investor_name <- params$investor_name
+portfolio_name <- params$portfolio_name
+peer_group <- params$peer_group
+scenario_selected <- params$scenario_selected
+currency_exchange_value <- params$currency_exchange_value
+log_dir <- params$log_dir
+
+results_portfolio <- params$results_portfolio
+peers_results_individual <- params$peers_results_individual
+peers_results_aggregated <- params$peers_results_aggregated
+indices_results_portfolio <- params$indices_results_portfolio
+total_portfolio <- params$total_portfolio
+audit_data <- params$audit_data
+emissions_data <- params$emissions_data
+```
+
+---
+title: "Executive Summary"
+subtitle:  |  
+  | PACTA Climate Test Switzerland 2024
+  | Results of `r investor_name`
+---
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+\begin{esbox}[0.25\textwidth]{Table of contents}
+
+\begin{enumerate}
+\item Equity \& Bonds (overview)
+\item Equity \& Bonds (current \& future)
+\item Survey
+\item Real estate \& mortgages
+\item Annex (Detailed chart explanations; FAQs)
+\item PACTA-based scorecard informed by Swiss Climate Scores
+\end{enumerate}
+
+\end{esbox}%
+\begin{esbox}[0.75\textwidth]{About the PACTA Climate Test 2022}
+```
+
+```{r number_peer, fig.height = 6}
+number_peers <- readr::read_csv(
+  file.path(score_card_dir, "number_peers.csv"),
+  col_types = readr::cols_only(
+    organization_type = "c",
+    n = "n"
+  )
+) %>% 
+  dplyr::filter(.data$organization_type == .env$peer_group) %>% 
+  dplyr::pull("n")
+```
+
+```{=latex}
+
+Switzerland and its financial market are committed to transitioning to net-zero carbon emissions by 2050 to achieve its obligations under the Paris Agreement of limiting global warming to well below 2\textdegree C and pursuing efforts to limit it to 1.5\textdegree C. The PACTA Climate Test 2022 provides comparable information on the progress of the Swiss financial market and across the individual participating financial institutions to meet the climate goals.
+\startunderscoreletter `r gsub("&", "\\&", stringr::str_to_title(investor_name), fixed = TRUE)` \stopunderscoreletter
+was invited to the test by the FOEN \textbf{(\href{https://www.bafu.admin.ch/bafu/en/home/topics/climate/info-specialists/climate-and-financial-markets.html}{link})} and SIF \textbf{(\href{https://www.sif.admin.ch/sif/en/home/finanzmarktpolitik/sustainable-finance.html}{link})} with support of the associations, to have its financial portfolios examined voluntarily. The PACTA test combines a quantitative assessment of global listed equity and corporate bond portfolios as well as Swiss real estate and mortgage portfolios with a qualitative assessment of further climate actions. In total, 133 financial institutions participated, of which
+\startunderscoreletter `r number_peers` \stopunderscoreletter
+were peers (i.e., participants from the same financial sector, such as pension funds; insurances; banks; asset managers).
+
+This executive summary is a short version of the individual results of your uploaded portfolio \startunderscoreletter {`r gsub("&", "\\&", portfolio_name, fixed = TRUE)`}\stopunderscoreletter.
+\startunderscoreletter `r gsub("&", "\\&", stringr::str_to_title(investor_name), fixed = TRUE)` \stopunderscoreletter
+received one executive summary per portfolio. A detailed individual interactive report (per portfolio or grouped) can be viewed via personalized access on the Transition Monitor Platform in German, French, and partly English \textbf{\href{https://platform.transitionmonitor.com/}{(link)}}. A meta report with anonymized and aggregated data from all participants, together with sector reports, is published on the FOEN website
+\textbf{(\href{https://www.bafu.admin.ch/bafu/en/home/topics/climate/info-specialists/climate-and-financial-markets.html}{link})}
+and is available for download.
+
+\end{esbox}
+
+\begin{esbox}{Measuring climate alignment}
+
+In the view of PACTA and FOEN, there are three main components that are useful to measure alignment with climate goals which are shown below. The icons are used throughout this document to indicate the category for each chart.
+
+\vspace{1em}
+
+\begin{center}
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\exposureImage[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Exposure:} Provides insights in how exposed your portfolio is to climate-relevant sectors, incl. buildings.
+\end{minipage}%
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\alignmentImage%[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Trajectory alignment:} Measures alignment of invested companies’ production plans or buildings’ refurbishment plans with climate scenarios and thereby allocates responsibility and risk to each company and building.
+\end{minipage}%
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\engagementImage[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Engagement \& other qualitative indicators:} Complementary analysis with information on climate actions that can have real-world climate impact.
+\end{minipage}%
+
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+
+\end{center}
+\end{esbox}
+
+\begin{esbox}{Equity \& bonds module overview}[\exposureImage]
+
+The analysis of the listed equity and corporate bond portfolios covers 8 climate-relevant sectors*. For these sectors, the exposure as well as the alignment with a pathway to limit global warming well below 2 degrees (Paris Agreement) has been analyzed. The trajectory alignment measurement was done using the PACTA method. PACTA compares forward-looking production plans of all invested companies in the PACTA sectors on a technology level to the targets from climate scenarios. For more information on the PACTA methodology, please refer to the PACTA Knowledge Hub \textbf{(\href{https://rmi.gitbook.io/pacta-knowledge-hub/}{link})}.
+
+```
+
+```{r diagram, fig.width=8, fig.height=2}
+tryCatch(
+  {
+    data_diagram <- prep_diagram(
+      audit_data = audit_data,
+      emissions_data = emissions_data,
+      currency_exchange_value = currency_exchange_value
+    )
+    plot_diagram(data_diagram)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_diagram(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+```
+
+```{=latex}
+
+\raggedleft\footnotesize{* coal, oil \& gas, power, automotive, cement, steel and aviation}
+
+\end{esbox}
+
+\newpage
+
+\section{Equity \& Bonds Results}
+
+\begin{esbox}{Current state (PACTA sectors)}[\exposureImage]
+
+%FIXME: make footnote
+\textbf{Exposure* to climate-relevant sectors \& technologies as \% of AUM}
+
+The chart provides information on the exposure to companies with physical assts in the parts of the value chain covered by PACTA. Fossil fuels (extraction) is shown aggregated as well as disaggregated for peer- and index-comparison.
+```
+
+```{r exposure, fig.height=3.5, fig.width=6, fig.show='hold', out.width='50%'}
+tryCatch(
+  {
+    data_green_brown_bars <- prep_green_brown_bars(
+      results_portfolio = results_portfolio,
+      scenario_selected = scenario_selected
+    )
+    plot_green_brown_bars(data_green_brown_bars)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_green_brown_bars(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_fossil_bars <- prep_fossil_bars(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected
+    )
+    plot_fossil_bars(data_fossil_bars)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_fossil_bars(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+```
+
+```{=latex}
+
+* exposure to companies with main activity in PACTA sectors
+
+** ‘Low-carbon’ technologies: renewables and hydro for power and electric for automotive. ‘High-carbon’ technologies:  oil, gas and coal for power, hybrid, ICE for automotive.
+
+\end{esbox}
+
+\begin{esbox}{Current \& future state (power sector)}[\alignmentImage
+\exposureImage]
+
+\textbf{Current exposure vs. future alignment for Power sector}
+
+The chart below shows the current low-carbon exposure and the forward-looking climate scenario alignment in the power sector for you and your peers. The current exposure to low-carbon technologies in the power sector increases right-wards, while the alignment improves upwards. A significant increase in renewable energy capacity will be required to achieve a 1.5\textdegree C climate scenario, so even companies with a high current share of low-carbon technologies will need to build new capacity in order to be aligned in the future. A current high low-carbon share and a low future alignment would therefore indicate a lack of planned renewables investment.
+
+```
+
+```{r scatter, fig.show="hold", out.width="0.4\\textwidth", fig.align='center'}
+
+tryCatch(
+  {
+    data_scatter_power_b <- prep_scatter(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      peers_results_individual = peers_results_individual,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected,
+      asset_class = "bonds"
+    )
+
+    all_entity_types <- length(unique(data_scatter_power_b$entity_type)) == 4
+
+    if (all_entity_types | nrow(data_scatter_power_b) == 0) {
+      plot_scatter(data_scatter_power_b) +
+        patchwork::plot_annotation(
+          title = "Bonds",
+          theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 18))
+        )
+    }
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scatter() for bonds. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_scatter_power_e <- prep_scatter(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      peers_results_individual = peers_results_individual,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected,
+      asset_class = "equity"
+    )
+
+    all_entity_types <- length(unique(data_scatter_power_e$entity_type)) == 4
+
+    if (all_entity_types | nrow(data_scatter_power_e) == 0) {
+      plot_scatter(data_scatter_power_e) +
+        patchwork::plot_annotation(
+          title = "Equity",
+          theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 18))
+        )
+    }
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scatter() for equity. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{esbox}
+
+\begin{esbox}{Future (Other PACTA sectors)}[\alignmentImage]
+
+\textbf{PACTA Aggregated Climate Alignment Score}
+
+The aggregated score compares the alignment of all assets until 2026 to the GECO 2021 Scenario. The score is calculated both on aggregate portfolio level (see also Climate Scores) and per PACTA sector (except for cement which is not covered in GECO2021).\footnote{GECO was chosen since it covered the most PACTA sectors. Please note that the GECO scenarios expect major technology changes to happen after the five years analyzed by PACTA. As such your overall score could be lower when using other scenarios.}
+
+```
+
+```{r scores, fig.show='hold', out.width='0.4\\textwidth', fig.align='center'}
+tryCatch(
+  {
+    data_scores_b <- prep_scores(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "bonds"
+    )
+    plot_scores(data_scores_b) +
+      patchwork::plot_annotation(
+        title = "Bonds",
+        theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 22))
+      )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_scores_e <- prep_scores(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "equity"
+    )
+    plot_scores(data_scores_e) +
+      patchwork::plot_annotation(
+        title = "Equity",
+        theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 22))
+      )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{esbox}
+
+\newpage
+
+\section{Equity \& Bonds Results}
+
+\begin{esbox}{Transition}[\alignmentImage \exposureImage]
+
+\textbf{Scenario alignment per technology}
+
+While the previous section provided insights on the current exposure to the different PACTA sectors as well as an overview of the alignment on an aggregated level and sector level, this section provides complementary insights into alignment with the GECO 2021 scenario on a technology level for the PACTA sectors with technology roadmaps.
+The charts below indicate with which scenario the technologies in your portfolio are aligned, in comparison to your peers. The position of each square within the color strips defines the scenario with which your portfolio and your peers’ portfolios are aligned in 5 years from now. The size of the squares indicates the exposure as \% of AUM.
+To learn more about how the alignment of your portfolio evolves over the next five years per technology, you can find the respective trajectory charts in the interactive report. There you will also find additional information on company-level.
+```
+
+```{r alignment_table_bonds, fig.height=4, fig.width=7.1, fig.align='center'}
+tryCatch(
+  {
+    data_alignment_table <- prep_alignment_table(
+      results_portfolio = results_portfolio, 
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "bonds"
+    )
+    plot_alignment_table(data_alignment_table) +
+    patchwork::plot_annotation(
+      title = "Bonds",
+      theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16))
+    )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_alignment_table() for bonds. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+
+```{r alignment_table_equity, fig.height=4, fig.width=7.1, fig.align='center'}
+tryCatch(
+  {
+    data_alignment_table <- prep_alignment_table(
+      results_portfolio = results_portfolio, 
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "equity"
+    )
+    plot_alignment_table(data_alignment_table) +
+    patchwork::plot_annotation(
+      title = "Equity",
+      theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16))
+    )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_alignment_table() for equity. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+%FIXME: footnote
+* Renewables: include solar and wind power, exclude hydro and nuclear
+
+** Automotive: includes light-duty vehicles (LDV)
+
+\end{esbox}
+
+\newpage
+```
+
+```{r survey_chapter, child='survey-chapter.Rmd', eval = (dir.exists(survey_dir) & length(list.files(survey_dir)) > 0)}
+```
+
+```{r survey_chapter_alternate, child='survey-chapter-alternate.Rmd', eval = !(dir.exists(survey_dir) & length(list.files(survey_dir)) > 0)}
+```
+
+
+```{r real_estate_chapter, child="real-estate-chapter.Rmd", eval = real_estate_flag}
+```
+
+ <!-- FIXME: Find a more elegant way to make this switch. -->
+```{r real_estate_chapter, child="real-estate-chapter-alternate.Rmd", eval = !real_estate_flag}
+```
+
+```{=latex}
+
+\newpage
+
+\section{Annex (I): additional chart explanation}
+
+\subsection{Exposure to climate-relevant sectors \& technologies as \% of AUM} 
+
+
+\begin{minipage}[t]{0.3\linewidth}
+\begin{center}
+\textbf{All PACTA sectors}
+
+\includegraphics[width=\textwidth]{chart_sample_1}
+
+\end{center}
+\end{minipage}%
+\begin{minipage}[t]{0.3\linewidth}
+\begin{center}
+\textbf{Fossil Fuels}
+
+\includegraphics[width=\textwidth]{chart_sample_2}
+
+\end{center}
+\end{minipage}%
+
+The bar chart on the left shows the portfolio's exposure to each of the eight PACTA sectors as a percentage of assets under management. The bars are arranged by the amount of exposure in descending order. In addition, a breakdown of technologies (low-carbon, carbon-intensive, unspecified) is provided for those sectors for which such a breakdown is defined. The graph on the right shows the exposure to the fossil fuel extraction sector as a breakdown between the different fossil fuels coal, oil and gas. In addition, a comparison with peers (pension funds, insurance companies, banks or asset managers) as well as with an ETF for the MSCI World Index can be seen.
+
+\subsection{Current exposure vs. future alignment for power sector}
+
+
+\includegraphics[width=0.5\textwidth]{chart_sample_3}
+
+This chart shows current low-carbon technology exposure (percentage of sectoral exposure, x-axis) plotted against the sector-level alignment metric (alignment score, y-axis). Colored dots represent different entities (portfolio, average of all participants, average of peers). It investigates the relation between the two values as well as provides context for the alignment score. Ideally, an insitution would like to be positioned in the upper right corner (high exposure to low-carbon and high alignment). The bottom left corner is the least desired position (low exposure to low-carbon and low alignment).
+
+\newpage
+
+\section{Annex (I): additional chart explanation}
+
+\subsection{Aggregated alignment scores}
+
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{chart_sample_4}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+This chart displays the alignment scores both on the aggregate level (left-most bar) and on sector level. The bigger, dark-blue triangle indicates the score obtained by this portfolio and the smaller grey triangle indicates the average peer result. The horizontal line delineates the scores aligned with the 1.8\textdegree C pathway (or higher) from those that are not aligned. The 1.8\textdegree C pathway matches with the target in the Paris Agreement of limiting global warming to “well below 2\textdegree C”. The scores indicate the scenario with which the production plans of the invested companies align. Please refer to the two visualizations below for more information. 
+
+\end{minipage}%
+
+\subsection{Scenario choice and grading}
+
+This table shows the technical specifications in regard to the scenarios to define the score. For each score, one can see the requirements in regard to each scenario in the same row.
+
+\begin{center}
+\includegraphics[width=\textwidth]{table_scenario_grading}
+\end{center}
+
+
+\subsection{Example of production plans for a green technology according to the scores.}
+
+The chart below visualizes the specifications of the aggregated alignment score for an examplary production plan of a green technology. To derive the aggregated score, the sector-level scores are aggregated to one score. 
+
+
+\begin{center}
+\includegraphics{chart_scenario_grading}
+\end{center}
+
+\newpage
+
+\section{Annex (II): additional chart explanation}
+
+\subsection{Dart chart: overall climate strategy}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+\includegraphics{chart_sample_5}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+
+This dart chart shows whether your institution as a whole, according to your answers, practices reporting, has a climate strategy in place, and has concrete climate targets. An increasing efficacy from the first (outer layer) to the third (inner layer) is assumed. Best practice is defined as having all three layers covered.
+Transparency through reporting is a first step in the right direction, but ultimately a concrete climate goal needs to be set and backed by a trustworthy climate strategy to make a change. 
+
+\end{minipage}%
+
+\subsection{Dart chart: investee engagement in fossil fuel, automotive, and power sector}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+
+\includegraphics[width=\textwidth]{chart_sample_6}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+This dart charts shows which engagement actions your institution is practicing, accoding to your answers. It starts with a general engagement policy, which can be improved in effectiveness through a dedicated engagement team and finally through joint engagement with other institutions. Best practice is when all three levels are covered.
+The chart is shown separately for fossil fuels, automotive, and power sector as these (i) are considered as the most climate relevant sectors and (ii) have low-carbon substitutes which allows investors to support the shift to existing technologies. 
+
+Considering joint engagement as a way to increase the efficacy of engagement practices is echoed by literature on the topic and supported by, for example, the NZAOA \textbf{\href{https://www.unepfi.org/wordpress/wp-content/uploads/2022/03/NZAOA_The-future-of-investor-engagement.pdf}{(link)}}. 
+
+\end{minipage}%
+
+\subsection{Dart chart: negative screening in oil and gas as well as coal sector}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+
+\includegraphics[width=\textwidth]{chart_sample_7}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+This dart chart shows whether your institution as a whole, according to your answers, has exclusion criteria defined, practices underweighting in the respective sectors as well as excludes companies if your action is not successful. Best practice is defined as having all three layers covered.
+This layer chart is shown for coal on the one hand and oil and gas on the other hand separately, and compared to the exposure in the respective sectors. The comparison to the PACTA exposure aims to provide insights in the effectiveness of the negative screening actions.
+
+\end{minipage}%
+
+\newpage
+
+\section{Annex (III): Explanation of Charts}
+
+\begin{minipage}[t]{0.4\textwidth}
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_map}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Geographical location of all directly held buildings in Switzerland. The color represents the main use of the respective building. 
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_energy_carrier}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Proportion of energy sources in the directly held buildings and mortgages. The values submitted or taken from the GWR are shown. If neither of the two figures is available, "oil" is used in accordance with FOEN specifications.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_distribtion}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Mean CO\textsubscript{2} intensity of all directly held buildings or mortgages per participant. The red column represents the mean value of the own respective portfolio. The horizontal line represents the value 15.7 kg/m\textsuperscript{2} of the reduction path "Switzerland's Long-Term Climate Strategy" for the year 2021. 
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_emissions}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Development over time of the average CO\textsubscript{2} intensity of all directly held buildings per participant in comparison with the reduction path according to the federal government's "Switzerland's Long-Term Climate Strategy".
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_stranded_asset}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Proportions of mortgages above or below the reduction path according to the federal government's "Switzerland's Long-Term Climate Strategy" in relation to their mortgages at the respective time. In light green, those mortgages that are below the reduction path at the respective time due to renovation measures.
+
+\end{minipage}%
+
+\newpage
+
+\section{Annex (IV): FAQs}
+
+\begin{esbox}{Which are the PACTA sectors?}
+
+The PACTA analysis covers 8 climate-relevant sectors: coal, oil \& gas, power, automotive, cement, steel, and aviation. Usually, 5-15\% of FI’s portfolios are invested in these sectors. Even though the financial exposure can seem small, the investments still, on average, account for a much larger share of portfolio emissions. Please see the graphs of a sample portfolio below:
+
+\begin{center}
+
+\begin{minipage}[t]{0.4\textwidth}
+\begin{center}
+\textbf{Financial Exposure}
+
+
+\includegraphics[width=\textwidth]{chart_sample_8}
+
+\end{center}
+
+\end{minipage}%
+\begin{minipage}[t]{0.4\textwidth}
+
+\begin{center}
+\textbf{Emission Exposure}
+
+
+\includegraphics[width=\textwidth]{chart_sample_9}
+\end{center}
+\end{minipage}
+
+\end{center}
+\end{esbox}
+
+\begin{esbox}{Which asset classes does PACTA cover?}
+
+The PACTA methodology covers listed equity and corporate bonds. In cooperation with Wüest Partner AG, the PACTA Test Switzerland 2022 also includes Swiss real estate and mortgages. 
+
+\end{esbox}
+
+\begin{esbox}{How can I use my results for disclosure?}
+
+To what extent you use your results is up to you. However, the results are suitable for a variety of reporting opportunities, such as:
+
+\begin{itemize}
+\item Internal reporting and communication
+\item Reporting in the environment of the participating financial institution (clients, insured parties etc.)
+\item External disclosure: Implementing the federal council’s recommendations \textbf{\href{https://www.sif.admin.ch/sif/en/home/documentation/press-releases/medienmitteilungen.msg-id-85925.html}{(link)}} to use comparable and meaningful climate compatibility indicators to help create transparency in all financial products and client portfolios incl. indicators following the Swiss Climate Scores \textbf{\href{https://www.sif.admin.ch/sif/en/home/swiss-climate-scores/valuation-parameters.html}{(link)}}.
+\item Details on how to use the results for reporting according to TCFD, the EU SFDR or EU Taxonomy can be found in the following report "The Disclosure Puzzle – the role of PACTA" \textbf{(\href{https://2degrees-investing.org/wp-content/uploads/2020/03/PACTA-disclosures-report.pdf}{link})}.
+\end{itemize}
+
+
+\end{esbox}
+
+\begin{esbox}{Where can I find the full results of this test (interactive report)?}
+
+This Executive Summary serves as a supplement to the comprehensive and interactive presentation of your results in the so-called interactive report. You can view this on the Transition Monitor Platform under "Results" after logging in with your password \textbf{(\href{https://platform.transitionmonitor.com/}{link})}.
+
+\end{esbox}
+
+\begin{esbox}{Where can I learn more about the PACTA Methodology?}
+
+If you want to learn more about the open-source methodology behind PACTA, you can do so on our "PACTA Knowledge Hub" \textbf{(\href{https://rmi.gitbook.io/pacta-knowledge-hub/}{link})}.
+
+\end{esbox}
+
+\newpage
+
+```
+
+```{r scorecard, child='scorecard.Rmd'}
+```
+
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_1.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_1.png
new file mode 100644
index 00000000..ca17acf5
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_1.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_2.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_2.png
new file mode 100644
index 00000000..97c1d821
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_2.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_3.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_3.png
new file mode 100644
index 00000000..ce016923
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_3.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_4.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_4.png
new file mode 100644
index 00000000..5563da05
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_4.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_5.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_5.png
new file mode 100644
index 00000000..1bc671e3
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_5.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_6.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_6.png
new file mode 100644
index 00000000..afaf6146
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_6.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_7.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_7.png
new file mode 100644
index 00000000..e9af58b3
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_7.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_8.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_8.png
new file mode 100644
index 00000000..6b73f964
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_8.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_9.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_9.png
new file mode 100644
index 00000000..872390be
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_sample_9.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/chart_scenario_grading.png b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_scenario_grading.png
new file mode 100644
index 00000000..a1178b92
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/chart_scenario_grading.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_alignment.png b/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_alignment.png
new file mode 100644
index 00000000..b0f5d841
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_alignment.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_engagement.png b/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_engagement.png
new file mode 100644
index 00000000..d6b1f54e
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_engagement.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_exposure.png b/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_exposure.png
new file mode 100644
index 00000000..3ca002b5
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/symbol_exposure.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/img/table_scenario_grading.png b/inst/extdata/PA2024CH_fr_exec_summary/img/table_scenario_grading.png
new file mode 100644
index 00000000..e75cb95c
Binary files /dev/null and b/inst/extdata/PA2024CH_fr_exec_summary/img/table_scenario_grading.png differ
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/preamble.tex b/inst/extdata/PA2024CH_fr_exec_summary/preamble.tex
new file mode 100644
index 00000000..1b4c581b
--- /dev/null
+++ b/inst/extdata/PA2024CH_fr_exec_summary/preamble.tex
@@ -0,0 +1,152 @@
+\usepackage{geometry}
+\usepackage{xparse}
+\usepackage{xcolor}
+\usepackage{mdframed}
+\usepackage{multicol}
+\usepackage{hyperref}
+\usepackage{textcomp}
+
+% \usepackage[default]{opensans}
+\usepackage[T1]{fontenc}
+
+% \usepackage{showframe}
+% \renewcommand*\ShowFrameColor{\color{watermelon}}
+
+\graphicspath{ {img/} }
+
+\geometry{
+a4paper,
+left=0.4in,
+right=0.2in,
+top=0.2in,
+bottom=0.2in,
+headheight=0.0in
+}
+
+\NewDocumentCommand \scorecardGeometry{}{
+  \geometry{
+    a4paper,
+    left=0.2in,
+    right=0.2in,
+    top=0.2in,
+    bottom=0.2in,
+    headheight=0.0in
+  }
+}
+
+\definecolor{esLightGray}{HTML}{F2F2F2}
+\definecolor{scBlueGray}{HTML}{475767}
+\definecolor{watermelon}{HTML}{B4Da55}
+\definecolor{candy}{HTML}{f42069}
+
+% \setsansfont{OpenSans}[
+%     Path = fonts/OpenSans/,
+%     % Scale = 0.9,
+%     Extension = .ttf,
+%     UprightFont = *-Regular,
+%     BoldFont = *-Bold,
+%     ItalicFont = *-Italic,
+%     BoldItalicFont = *-BoldItalic
+%     ]
+
+% \setmainfont{OpenSans}
+\renewcommand{\familydefault}{\sfdefault}
+
+\NewDocumentCommand \verticalAlignImage {}{
+  \strut\vspace*{-\baselineskip}\newline
+}
+
+\NewDocumentCommand \centeredImage{ o m }{
+  \begingroup
+  \setbox0=\hbox{
+  \IfValueTF{#1}{
+    \includegraphics[#1, keepaspectratio]{#2}
+  }{
+    \includegraphics{#2}
+  }
+  }
+  \parbox{\wd0}{\box0}\endgroup
+}
+
+\NewDocumentCommand \exposureImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_exposure}
+  }{
+    \centeredImage{symbol_exposure}
+  }
+}
+
+\NewDocumentCommand \alignmentImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_alignment}
+  }{
+    \centeredImage{symbol_alignment}
+  }
+}
+
+\NewDocumentCommand \engagementImage{ O{height=24pt} }{
+  \IfValueTF{#1}{
+    \centeredImage[#1]{symbol_engagement}
+  }{
+    \centeredImage{symbol_engagement}
+  }
+}
+
+\mdfdefinestyle{esstyle}{
+  frametitlebackgroundcolor = esLightGray,
+  linecolor=white,
+  linewidth=0,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0
+}
+
+\mdfdefinestyle{scheaderstyle}{
+  backgroundcolor = scBlueGray,
+  linecolor=white,
+  linewidth=0,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0,
+  innerrightmargin=0.7em,
+  rightmargin=0.0em,
+  innerleftmargin=0.7em,
+  leftmargin=0.0em,
+  fontcolor=white
+}
+
+
+\mdfdefinestyle{debugstyle}{
+  frametitlebackgroundcolor = watermelon,
+  linecolor = candy,
+  linewidth = 2pt,
+  frametitleaboveskip=0,
+  frametitlebelowskip=0
+}
+
+\NewDocumentCommand \esboxTitleString{ m o }{
+  % \Large#1\vrule{24pt}{2pt}%
+  \Large#1%
+  \IfValueT{#2}{\hfill {#2}}
+}
+
+\NewDocumentEnvironment{esbox}{ O{\textwidth} m o }
+{% begin code
+  \begin{minipage}[t]{#1}%
+  \begin{mdframed}[style=esstyle, frametitle={\esboxTitleString{#2}[#3]}]%
+}
+{ % enddef
+  \end{mdframed}%
+  \end{minipage}%
+}%
+
+\NewDocumentEnvironment{scheader}{ O{\textwidth}}
+{% begin code
+  \begin{minipage}[t]{#1}%
+  \begin{mdframed}[style=scheaderstyle]%
+}
+{ % enddef
+  \end{mdframed}%
+  \end{minipage}%
+}%
+
+\newcommand{\startunderscoreletter}{\catcode`_ 12\relax}
+\newcommand{\stopunderscoreletter}{\catcode`_ 8\relax}
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/scorecard.Rmd b/inst/extdata/PA2024CH_fr_exec_summary/scorecard.Rmd
new file mode 100644
index 00000000..f738626a
--- /dev/null
+++ b/inst/extdata/PA2024CH_fr_exec_summary/scorecard.Rmd
@@ -0,0 +1,623 @@
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+\begin{scheader}
+\section{Indicateurs \guillemetleft Climate Scores\guillemetright}
+
+
+\subsection{Résumé du PACTA 2022}
+
+Les trois pages suivantes des indicateurs climatiques complètent le résumé analytique du PACTA en affichant les résultats générés automatiquement au niveau du portefeuille, sur la base des Swiss Climate Scores. Les Swiss Climate Scores \textbf{\href{https://www.sif.admin.ch/sif/fr/home/finanzmarktpolitik/finance-durable.html}{(lien)}} ayant été définis lors du test climatique PACTA 2022, il existe quelques écarts qui sont notés sur les pages d'explication. Veuillez noter que les indicateurs relatifs à l'exposition aux énergies fossiles et le ‘potentiel de réchauffement global’ sont basés sur la méthodologie et les secteurs PACTA.
+\end{scheader}
+```
+
+```{=latex}
+\subsection{SITUATION ACTUELLE}
+
+\begin{multicols}{2}
+
+\textbf{Empreinte carbone}
+
+Sont prises en compte toutes les sources d’émissions de gaz à effet de serre des entreprises du portefeuille, y compris les émissions pertinentes de leurs fournisseurs et produits (scope 1 à 3).
+
+```
+
+```{r emissions_scorecard, fig.height=2.7}
+
+tryCatch(
+  {
+    data_emissions_scorecard <- prep_emissions_scorecard(
+      emissions_data = emissions_data,
+      audit_data = audit_data,
+      currency_exchange_value = currency_exchange_value
+    )
+    plot_emissions_scorecard(data_emissions_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_emissions_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{r emissions_scorecard_info}
+total_portfolio_value_curr <- audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::mutate(value_usd = dplyr::if_else(value_usd < 0, 0, value_usd)) %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)
+
+total_portfolio_percentage_equity <- (audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::filter(.data$asset_type == "Equity") %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)) /
+  total_portfolio_value_curr
+
+total_portfolio_percentage_bonds <- (audit_data %>%
+  dplyr::filter(.data$entity == "portfolio") %>%
+  dplyr::filter(.data$asset_type == "Bonds") %>%
+  dplyr::mutate(value_curr = .data$value_usd / .env$currency_exchange_value) %>%
+  dplyr::pull("value_curr") %>%
+  sum(na.rm = TRUE)) /
+  total_portfolio_value_curr
+
+total_portfolio_percentage_coverage <- (total_portfolio_percentage_equity + total_portfolio_percentage_bonds)
+  
+```
+
+```{=latex}
+
+Benchmark:
+
+\begin{center}
+\begin{tabular}{ p{0.5\linewidth} p{0.5\linewidth} } 
+ \hline
+ Actions & Obligations d’entreprise \\ 
+ \hline
+ iShares MSCI World ETF & iShares Global Corp Bond UCITS ETF \\ 
+ \hline
+\end{tabular}
+\end{center}
+
+Actifs du portefeuille couverts par l'évaluation: \textbf{`r round(total_portfolio_percentage_coverage * 100)` \%}
+
+\vfill\null
+\columnbreak
+
+\textbf{Exposition aux combustibles fossiles et aux énergies renouvelables, basée sur la méthodologie PACTA}
+
+Les milieux scientifiques s’accordent sur la nécessité de sortir du charbon, de mettre un terme au financement des nouveaux projets impliquant des combustibles fossiles et d'augmenter les capacités en matière d’énergie renouvelable. La figure ci-dessous indique l'exposition financière (en \% d’actifs sous gestion) de ce portefeuille aux technologies dans les industries de l'extraction du charbon, du pétrole et du gaz en amont, de la production d'énergie fossile (y compris de charbon) et de la production d'énergie renouvelable. L'exposition PACTA est basée sur les capacités de production et non sur les revenus.
+
+```
+
+```{r exposures_scorecard, fig.height=2.5}
+
+tryCatch(
+  {
+    data_exposures_scorecard <- prep_exposures_scorecard(results_portfolio)
+    plot_exposures_scorecard(data_exposures_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_exposures_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{multicols}
+
+
+\subsection{TRANSITION VERS LE NET ZÉRO}
+
+\begin{multicols}{2}
+\textbf{Score agrégé PACTA d'alignement climatique}
+
+```
+
+```{r scores_scorecard, fig.height=3}
+tryCatch(
+  {
+    data_scores_scorecard <- prep_scores_scorecard(results_portfolio)
+    plot_scores_scorecard(data_scores_scorecard)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores_scorecard(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{r emissions_covered}
+
+aggregate_score_emissions_covered_perc <- prep_scores_emissions_scorecard(
+  emissions_data,
+  log_dir = log_dir
+)
+
+aggregate_score_exposure_covered_perc <- prep_scores_exposure_scorecard(
+  audit_data = audit_data,
+  currency_exchange_value = currency_exchange_value,
+  total_portfolio_value_curr = total_portfolio_value_curr,
+  log_dir = log_dir
+)
+
+```
+
+```{=latex}
+Émissions du portefeuille couvertes par l'évaluation: \textbf{`r round(aggregate_score_emissions_covered_perc * 100)` \%}
+
+Actifs du portefeuille couverts par l'évaluation: \textbf{`r round(aggregate_score_exposure_covered_perc * 100)` \%}
+
+Scénario climatique utilisé: \textbf{GECO 2021}
+
+\vfill\null
+\columnbreak
+
+Ce score représente l'alignement agrégé estimé des secteurs PACTA (hors ciment) du portefeuille par rapport aux scénarios GECO 2021. Veuillez garder à l'esprit que l'interprétation de ce score doit être accompagnée d'une analyse des résultats sous-jacents et de la stratégie d'investissement utilisée dans chacun des secteurs analysés, compte tenu des hypothèses sur lesquelles se base une métrique agrégée. Certains portefeuilles assortis d’objectifs climatiques peuvent intentionnellement inclure des investissements dans des entreprises qui ne sont pas encore sur la bonne voie pour atteindre l'alignement à 1,5\textdegree C, le but étant plutôt de contribuer activement aux objectifs climatiques en améliorant l'alignement des entreprises bénéficiaires d’investissements afin d’aligner une plus grande part de l'économie au fil du temps. L'ensemble combiné d'indicateurs ci-dessus et leur présentation sont considérés par le conseil fédéral suisse comme représentant la meilleure pratique actuelle en matière de transparence scientifique sur l'alignement des actifs du portefeuille sur les objectifs climatiques mondiaux.
+
+\end{multicols}
+```
+
+\newpage
+
+```{=latex}
+\begin{multicols}{2}
+
+\subsection{Engagements vérifiés en faveur du net zéro}
+
+Un nombre croissant d’entreprises s’engage volontairement à atteindre zéro émissions nettes et formulent des objectifs intermédiaires pour y parvenir. L’efficacité de ces engagements dépend de la crédibilité, du fondement scientifique et de la transparence des objectifs intermédiaires. Les informations suivantes sont basées sur les informations émanant de SBTi \textbf{\href{https://sciencebasedtargets.org/companies-taking-action}{(lien)}}.
+
+```
+
+```{r sbti_net_zero_commitments}
+fin_data_net_zero_targets <- readr::read_csv(
+  file.path(score_card_dir, "fin_data_net_zero_targets.csv"),
+  col_types = readr::cols_only(
+    isin = "c",
+    asset_type = "c",
+    factset_entity_id = "c"
+  )
+)
+
+peer_group_share_net_zero <- readr::read_csv(
+  file.path(score_card_dir, "peer_group_share_net_zero.csv"),
+  col_types = readr::cols_only(
+    investor_name = "c",
+    portfolio_name = "c",
+    share_net_zero = "n"
+  )
+)
+
+data_prep_net_zero_commitments <- prep_net_zero_commitments(
+  total_portfolio = total_portfolio,
+  peer_group = peer_group,
+  net_zero_targets = fin_data_net_zero_targets,
+  peer_group_share_net_zero = peer_group_share_net_zero
+)
+
+```
+
+```{=latex}
+
+\begin{itemize}
+
+\item Part des entreprises du portefeuille ayant pris des engagements vérifiés pour atteindre le \guillemetleft net zéro\guillemetright \ et pour la fixation d’objectifs intermédiaires crédibles: \textbf{`r round(data_prep_net_zero_commitments %>% dplyr::filter(.data$portfolio_name == "this_portfolio") %>% dplyr::pull("share_net_zero") * 100, 1)` \%}
+
+\item Part moyenne des entreprises dans les portefeuilles de pairs ayant des engagements vérifiés envers le net zéro et des objectifs intermédiaires crédibles: \textbf{`r round(data_prep_net_zero_commitments %>% dplyr::filter(.data$portfolio_name == peer_group) %>% dplyr::pull("share_net_zero") * 100, 1)` \%}
+
+\end{itemize}
+```
+
+```{=latex}
+\subsection{Real Estate Score}
+
+```
+
+```{r real_estate_scores_scorecard, fig.height=3}
+
+if (real_estate_flag){
+
+  tryCatch(
+   {
+      real_estate_data <- jsonlite::read_json(
+        path = file.path(real_estate_dir, "data", "data.json")
+        )[["exec_sum"]]
+    
+      re_data_scores_scorecard <- tibble(
+        asset_class = c("directly held", "mortgages"),
+        score = c(
+          real_estate_data[["real_estate"]][["co2eq_emissions_grade"]],
+          real_estate_data[["mortgage"]][["co2eq_emissions_grade"]]
+        )
+        ) %>%
+      dplyr::mutate(score = dplyr::if_else(score %in% LETTERS[6:28], "E", score))
+
+      plot_scores_scorecard_real_estate(
+        data = re_data_scores_scorecard
+      )
+    },
+    error = function(e) {
+      write_log(
+        "ES: There was an error in prep/plot_scores_scorecard_real_estate(). Returning empty plot object.\n",
+        file_path = log_dir
+      )
+      empty_plot_error_message()
+    }
+  )
+} else {
+  empty_plot_no_data_message()
+}
+
+```
+
+```{=latex}
+
+
+\subsection{Immobilier et hypothèques en Suisse}
+
+Intensité de CO\textsubscript{2} selon les classes GEAK (Moyens du participant)
+
+\begin{itemize}
+\item Bâtiments à tenue directe:
+`r tryCatch({real_estate_data[["real_estate"]][["co2eq_emissions"]]}, error = function(e) {NULL})`
+\(\rightarrow\)
+`r tryCatch({real_estate_data[["real_estate"]][["co2eq_emissions_grade"]]}, error = function(e) {NULL})`
+
+\item Hypothèques:
+`r tryCatch({real_estate_data[["mortgage"]][["co2eq_emissions"]]}, error = function(e) {NULL})`
+\(\rightarrow\)
+`r tryCatch({real_estate_data[["mortgage"]][["co2eq_emissions_grade"]]}, error = function(e) {NULL})`
+
+\end{itemize}
+
+\vfill\null
+\columnbreak
+```
+
+```{=latex}
+\subsection{Stratégie climatique générale incluant une gestion crédible du climat}
+
+Les institutions financières peuvent contribuer à la transition vers la neutralité des émissions en faisant en sorte que les entreprises dans lesquelles elles investissent mettent en œuvre des plans de transition jusqu’en 2050 qui reposent sur une base scientifique et vérifiés par un tiers.
+
+```
+
+```{r climate_strategy_initiatives}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"))) {
+  user_climate_strategy_scorecard_initiatives <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"),
+    col_types = readr::cols_only(
+      user_id = "n",
+      peer_group = "c",
+      name_climate_initiative = "c",
+      climate_initiative = "l"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_initiatives <- tibble::tibble(
+    user_id = 0,
+    peer_group = peer_group,
+    name_climate_initiative = NA_character_,
+    climate_initiative = NA
+  )
+}
+
+peers_climate_strategy_scorecard_initiatives <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_initiatives.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    n = "n",
+    peers_yes = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_initiatives <- prep_climate_strategy_scorecard_initiatives(
+  data = user_climate_strategy_scorecard_initiatives,
+  data_peers = peers_climate_strategy_scorecard_initiatives,
+  peer_group = peer_group
+)
+
+member_initiatives_portfolio <-
+  data_prep_climate_strategy_scorecard_initiatives$member_initiatives_portfolio
+
+member_initiatives_peers <-
+  data_prep_climate_strategy_scorecard_initiatives$member_initiatives_peers
+
+```
+
+```{=latex}
+
+\begin{itemize}
+
+\item L'institution financière est-elle membre d'une initiative climatique?
+  \textbf{`r if (member_initiatives_portfolio$yes == 1) {"YES"} else if (member_initiatives_portfolio$yes == 0 & file.exists(file.path(score_card_dir, "climate_scorecard_survey_initiatives.csv"))) {"NO"} else {"Not Answered"}`  (Peers:
+   `r round(member_initiatives_peers * 100)` 
+  \%)}
+ 
+ `r if (member_initiatives_portfolio$yes == 1) {paste0("Name:", member_initiatives_portfolio$name_climate_initiative)}` 
+
+```
+
+
+```{r climate_strategy_voting_rights}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_voting.csv"))) {
+  user_climate_strategy_scorecard_voting <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_voting.csv"),
+    col_types = readr::cols_only(
+      peer_group = "c",
+      user_id = "n",
+      asset_type = "c",
+      voting_rights = "c"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_voting <- tibble::tibble(
+    peer_group = peer_group,
+    user_id = 0,
+    asset_type = c("INF", "LE", "Other", "PE"),
+    voting_rights = "not_answered"
+  )
+}
+
+peers_climate_strategy_scorecard_voting <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_voting.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    asset_type = "c",
+    n = "n",
+    peers_yes = "n",
+    peers_no = "n",
+    peers_not_answered = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_voting <- prep_climate_strategy_scorecard_voting(
+  data = user_climate_strategy_scorecard_voting,
+  data_peers = peers_climate_strategy_scorecard_voting,
+  peer_group = peer_group
+)
+
+voting_rights_portfolio <-
+  data_prep_climate_strategy_scorecard_voting$voting_rights_portfolio
+
+voting_rights_peers <-
+  data_prep_climate_strategy_scorecard_voting$voting_rights_peers
+
+```
+
+```{=latex}
+
+\item L'institution financière soutient-elle les stratégies climatiques par le biais des droits de vote?
+  
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("answer")` LE  (Peers: LE
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "PE") %>% dplyr::pull("answer")` PE  (Peers: PE
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "PE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "INF") %>% dplyr::pull("answer")` INF  (Peers: INF
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "INF") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r voting_rights_portfolio %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("answer")` Other assets (Peers: Other assets
+ `r round(voting_rights_peers %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("yes") * 100)` 
+\%)}
+  
+```
+
+```{r climate_strategy_engagement}
+if (file.exists(file.path(score_card_dir, "climate_scorecard_survey_engagement.csv"))) {
+  user_climate_strategy_scorecard_engagement <- readr::read_csv(
+    file.path(score_card_dir, "climate_scorecard_survey_engagement.csv"),
+    col_types = readr::cols_only(
+      peer_group = "c",
+      user_id = "n",
+      asset_type = "c",
+      engagement = "c"
+    )
+  )
+} else {
+  user_climate_strategy_scorecard_engagement <- tibble::tibble(
+    peer_group = peer_group,
+    user_id = 0,
+    asset_type = c("CB", "LE", "Other", "RE"),
+    engagement = "not_answered"
+  )
+}
+
+
+peers_climate_strategy_scorecard_engagement <- readr::read_csv(
+  file.path(score_card_dir, "peers_climate_scorecard_survey_engagement.csv"),
+  col_types = readr::cols_only(
+    peer_group = "c",
+    asset_type = "c",
+    n = "n",
+    peers_yes = "n",
+    peers_no = "n",
+    peers_not_answered = "n"
+  )
+)
+
+data_prep_climate_strategy_scorecard_engagement <- prep_climate_strategy_scorecard_engagement(
+  data = user_climate_strategy_scorecard_engagement,
+  data_peers = peers_climate_strategy_scorecard_engagement,
+  peer_group = peer_group
+)
+
+engagement_portfolio <-
+  data_prep_climate_strategy_scorecard_engagement$engagement_portfolio
+
+engagement_peers <-
+  data_prep_climate_strategy_scorecard_engagement$engagement_peers
+
+```
+
+```{=latex}
+
+\item L'institution financière soutient-elle les stratégies climatiques par le biais de mesures d'engagement?
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("answer") ` LE  (Peers: LE
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "LE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "CB") %>% dplyr::pull("answer")` CB  (Peers: CB
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "CB") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "RE") %>% dplyr::pull("answer")` RE  (Peers: RE
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "RE") %>% dplyr::pull("yes") * 100)` 
+\%);}
+
+  \textbf{`r engagement_portfolio %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("answer")` Other assets (Peers: Other assets
+ `r round(engagement_peers %>% dplyr::filter(.data$asset_type == "Other") %>% dplyr::pull("yes") * 100)` 
+\%)}
+
+\end{itemize}
+\end{multicols}
+```
+
+\newpage
+
+```{=latex}
+\begin{scheader}
+\section{Indicateurs \guillemetleft Climate Scores\guillemetright}
+
+
+\subsection{Résumé du PACTA 2022}
+
+CRITÈRES MINIMAUX POUR LES SWISS CLIMATE SCORES ET MISE EN ŒUVRE DANS LE TEST CLIMATIQUE PACTA COORDONNÉ
+
+\end{scheader}
+```
+
+### L’empreinte carbone
+
+L'indicateur d’empreinte carbone inclut l'empreinte carbone (CO~2~e/ M de CHF investis) mais pas l'intensité carbone (émissions par chiffre d'affaires) comme dans la proposition des \guillemetleft Swiss Climate Scores\guillemetright . Des exigences strictes sont satisfaites.
+
+Exigences strictes:
+
+* Inclusion des catégories 1 et 2, et de la catégorie 3 pertinente.
+* L'inclusion des émissions de catégorie 3 doit au minimum être alignée sur le calendrier décrit dans le règlement de référence de l'UE 2019/2089.
+
+### Exposition aux combustibles fossiles et aux énergies renouvelables
+
+**Score d'exposition dans le présent résumé analytique:** diffère des exigences de la proposition suisse, car les Swiss Scores ont été lancés alors que le Test climatique PACTA Suisse 2022 était déjà dans sa phase de développement. Alors que la proposition Swiss Scores mesure la part des entreprises ayant des activités liées aux combustibles fossiles, l'indicateur d'exposition PACTA mesure l'exposition financière, en termes d'actif sous gestion en \% de ce portefeuille, aux technologies concernées. L'exposition PACTA n'est pas basée sur les données relatives aux revenus, mais sur des données au niveau de l'entreprise basées sur les actifs et représentant les activités physiques réelles. Ces activités sont ensuite attribuées aux titres financiers, puis affectées au portefeuille. L'affectation par portefeuille se fait avec l'approche de pondération du portefeuille (PA) qui calcule les expositions technologiques du portefeuille en fonction de la pondération de chaque position au sein du portefeuille. 
+
+
+Caractéristiques:
+
+* L'indicateur présente l'exposition financière à chaque technologie en fonction de la répartition technologique du secteur principal de chaque entreprise
+* L'indicateur est basé sur les données relatives aux actifs physiques au lieu d’être basé sur les données relatives aux revenus
+* L'indicateur ne présente que l'exposition au secteur de base d'une entreprise (dans ce cas : charbon, pétrole et gaz, production d'électricité) ; c'est-à-dire que les actifs énergétiques d'Apple ne sont pas inclus car l'activité principale d'Apple n'est pas l'énergie
+* Ainsi, l'indicateur peut montrer à quel point un portefeuille est exposé à différentes technologies au sein du même secteur (par exemple : la production d'électricité à partir de combustibles fossiles par rapport à la production d'électricité à partir d'énergies renouvelables)
+* La catégorie d'émission des activités diffère d'un secteur à l'autre et comprend \guillemetleft l'exploitation minière\guillemetright \ pour le charbon, \guillemetleft l'amont\guillemetright pour le pétrole et le gaz, et la \guillemetleft production\guillemetright \ pour l'électricité. Pour obtenir de plus amples informations, veuillez consulter la documentation sur le score agrégé à la page suivante
+
+Pour favoriser la transition, les investissements dans les solutions climatiques sont essentiels mais ne peuvent pas être évalués uniquement par des mesures basées sur les émissions de CO~2~. Par conséquent, le tableau de l'exposition comprend également l'exposition aux énergies renouvelables.
+
+**Exigences impératives pour les Swiss Scores:**
+
+* Le seuil de 5\% des recettes s’applique aussi bien aux activités directement liées à l’exploration et à la production de combustibles fossiles qu’aux activités – dès lors que des données sont disponibles – qui financent cette production (pour le charbon, selon la Global Coal Exit List ou une liste similaire). 
+* Les activités concernées englobent l’ensemble de la chaîne de création de valeur et vont de l’exploration, de l’extraction et de la production (upstream), au raffinage, à la commercialisation et à l’électrification (downstream), en passant par le transport et le stockage (midstream).
+
+
+### Immobilier et hypothèques – indicateur PACTA supplémentaire
+
+En remplaçant les combustibles fossiles par des systèmes de chauffage renouvelables et en rénovant les bâtiments de manière économe en énergie, il est possible d'apporter une contribution directe et significative au climat. L'immobilier et les hypothèques sont donc des classes d'actifs importantes. La figure montre l'intensité moyenne en CO~2~ du participant dans les classes GEAK calculée selon la méthodologie PACTA.
+
+### Engagements vérifiés en faveur du net zéro
+
+_Des exigences  impératives sont satisfaites._
+
+Exigences impératives:
+
+* Les entreprises doivent s’être engagées publiquement à atteindre zéro émissions nettes et leurs objectifs à court terme avoir été certifiés par l’un des prestataires suivants :  Science Based Targets initiative (SBTi).
+
+### Gestion en faveur du net zéro
+
+_Les informations pour cet indicateur n'ont pas été collectées dans le test climatique PACTA 2022 et ne sont donc pas présentées_
+
+### Stratégie climatique générale incluant un dialog crédible sur le climat
+
+**Mise en œuvre:** s'écarte des exigences strictes des Swiss Climate Scores (voir ci-dessous)
+
+* Les initiatives climatiques doivent être cohérentes avec l'ambition d'atteindre le zéro net d'ici 2050
+  * Mise en œuvre: \guillemetleft Oui\guillemetright \ signifie qu'au moins une initiative est indiquée pour l'utilisateur. \guillemetleft Non\guillemetright \ signifie que l'utilisateur n'a indiqué aucune initiative. "Nom": renvoie les noms de toutes les initiatives indiquées, mais résume le champ libre en \guillemetleft Autre\guillemetright
+* Les votes doivent être considérés comme une mesure pertinente pour le climat
+  * Mise en œuvre: \guillemetleft OUI (type d'actif)\guillemetright \ signifie que l'utilisateur a investi dans le type d'actif ET a indiqué qu’il exerce des droits de vote. \guillemetleft NON\guillemetright \ signifie que l'utilisateur a investi dans le type d'actif ET N’A PAS indiqué qu’il exerce des droits de vote. \guillemetleft PAS DE RÉPONSE\guillemetright : signifie que l'utilisateur n'a pas indiqué qu'il possède des investissements dans le type d'actif. Pairs: Nombre d'utilisateurs ayant répondu OUI pour le type d'actif concerné sur l’ensemble des utilisateurs ayant investi dans ce type d'actif. Les types d'actifs couverts sont "actions cotées (LE)", "capitaux privées (PE)", "infrastructures (INF)", et "Autres actifs".
+* Les stratégies d'engagement doivent être considérées comme des mesures pertinentes pour le climat
+  * Mise en œuvre : conditions pour \guillemetleft OUI (type d'actif)\guillemetright , \guillemetleft NON\guillemetright , \guillemetleft PAS DE RÉPONSE\guillemetright \ définies comme ci-dessus mais pour des stratégies d'engagement. Pour les \guillemetleft autres actifs\guillemetright , les conditions ci-dessus doivent s'appliquer à au moins un des autres actifs. Pairs: Nombre d'utilisateurs ayant répondu OUI pour le type d'actif concerné sur l’ensemble des utilisateurs ayant investi dans ce type d'actif. Nombre d'utilisateurs ayant répondu OUI pour d'autres actifs sur le nombre d'utilisateurs ayant investi dans au moins un autre type d'actif. Les types d'actifs couverts sont "actions cotées (LE)", "obligations d'entreprises (CB)", "immobiliers (RE)", et "Autres actifs".
+
+**Exigences impératives:**
+
+* Les votes directs ou par procuration doivent être compatibles avec l’objectif de zéro émissions nettes en 2050.
+* Toute stratégie d’engagement associée doit être compatible avec l’objectif de zéro émissions nettes en 2050. Exemple d’initiative en faveur du climat: Climate Action 100+.
+* La procédure de gradation des mesures en cas de non atteinte des objectifs de dialogue (escalation) doit être clairement définie et accessible.
+
+### Score agrégé PACTA d'alignement climatique
+
+**Mise en œuvre:**
+
+* PACTA mesure l'alignement des plans de production prospectifs à 5 ans des entreprises avec le scénario GECO 2021.
+* Score sectoriel, agrégé en un seul score ; le ciment est exclu car il n'est pas couvert par GECO 2021.
+* La plupart des secteurs pertinents pour le climat, y compris les contributions
+* Cas d'utilisation: 
+  * Les institutions financières peuvent communiquer en interne et en externe sur les performances climatiques de manière simple et compréhensible.
+  * Les investisseurs peuvent comprendre les priorités du portefeuille et obtenir des informations sur les risques potentiels à long terme liés à la transition.
+  * Les superviseurs seront en mesure de comprendre la position de l’IF par rapport à ses pairs en ce qui concerne le changement climatique.
+
+**Exigences impératives:**
+
+* Laissez-vous guider par l'objectif de neutralité carbone d'ici 2050, conformément à la limite de réchauffement de 1,5$\text{\textdegree}$C de l'Accord de Paris et conformément aux dernières conclusions du GIEC.
+* Se conformer aux considérations techniques du rapport PAT 2021 du TCFD intitulé \guillemetleft Evaluation de l'alignement du portefeuille – considérations techniques\guillemetright . Respecter notamment les points suivants:
+  * Sélectionner un scénario de 1,5$\text{\textdegree}$C qui respecte, au minimum, les critères de sélection de scénarios définis par l'initiative Science Based Targets (SBTi) dans son document intitulé \guillemetleft Foundations of Science-Based Target Setting\guillemetright \ (Fondements de l'établissement d'objectifs fondés sur la science) (considération 7).
+  * Accorder la priorité aux indices de référence détaillés lorsqu'ils reflètent de manière significative des différences importantes dans la faisabilité de la décarbonation entre les industries ou les régions concernées (considération 8).
+  * Inclure les émissions de catégorie 3 pour les secteurs pour lesquels elles sont les plus significatives et pour lesquels des indices de référence peuvent être facilement extraits des scénarios existants (combustibles fossiles, mines, automobile) (considération 11). 
+  * En outre: A noter que la méthodologie PACTA ne se base pas sur les émissions mais sur les plans de production des entreprises. L'analyse basée sur la production donne cependant une indication des catégories suivantes: 
+    * Catégories 1 et 2 pour la production d'acier
+    * Catégorie 3 pour l'extraction de combustibles fossiles, la construction automobile
+    * Catégorie 1 pour la production d'électricité et l'aviation
+* Autoriser le gouvernement suisse à divulguer des scores de température implicites agrégés et basés sur votre méthodologie en utilisant les indices suivants afin de les comparer avec d'autres prestataires : SMI, MSCI World, MSCI World Materials, MSCI World Industrials, MSCI World Utilities, MSCI World Real Estate.
+
+
+**Exigences importantes, mais pas  impératives:**
+
+Indice de référence utilisé:
+
+* Au minimum, une approche au niveau du sous-secteur basée sur des sources scientifiques externes et reproductibles pour l'analyse comparative devrait être utilisée pour les secteurs à fortes émissions, les entreprises se voyant attribuer une \guillemetleft part équitable\guillemetright \ du budget carbone mondial en fonction de leur mix d'activités.
+* Les solutions climatiques, en particulier pour le secteur de l'électricité, doivent également être couvertes et comparées au scénario respectif, car la montée en puissance des énergies renouvelables est un facteur clé de la transition selon l'AIE. 
+
+Objectifs à long terme de l'entreprise, actions à court terme et sources de données:
+
+* Inclure les plans d'investissement à court terme 
+* Dans la mesure du possible, utiliser des données validées par des tiers au niveau de l'actif. Être le plus transparent possible sur les sources de données.
+* Ne pas autoriser les données sur les émissions évitées au niveau de l'entreprise, étant donné l'absence de normes concernant la déclaration des émissions évitées au niveau de l'entreprise et les difficultés et problèmes techniques liés à un tel calcul. Prendre plutôt en compte les solutions climatiques, et au minimum les énergies renouvelables.
+* _Exigences non satisfaites: _
+  * Évaluer la crédibilité des plans de réduction des émissions des entreprises et déterminer s'ils sont validés de manière externe (comme par le SBTi) comme étant fondés sur des données scientifiques, conformément à l'objectif de neutralité carbone à atteindre d'ici 2050. 
+  * Valider, si les engagements à long terme correspondent à l'action à court terme
+  * L'inclusion des émissions de catégorie 3 doit au minimum être alignée sur le calendrier décrit dans le règlement de référence de l'UE 2019/2089. 
+
+
+Pour calculer l'alignement du portefeuille
+
+* _En outre:_ Le score d'alignement climatique agrégé PACTA n'est pas un score d'augmentation implicite de la température (AIT). Par conséquent, la méthode PACTA ne peut pas fournir un niveau de confiance pour le score lui-même. Au lieu de cela, des scénarios fiables pour les scénarios sélectionnés existent et sont comme suit: 
+  * 50% de probabilité de ne pas dépasser 1,5$\text{\textdegree}$C de réchauffement pour le scénario uniforme de 1,5$\text{\textdegree}$C (GECO 2021)
+  * 50% de probabilité de ne pas dépasser 1,8$\text{\textdegree}$C de réchauffement pour le scénario de 1,8$\text{\textdegree}$C CDN-SLT (GECO 2021)
+  * Probabilité de 50% de ne pas dépasser 3,0$\text{\textdegree}$C de réchauffement pour le scénario des politiques actuelles de 3,0$\text{\textdegree}$C (GECO 2021) 
+* _Exigences non satisfaites_ car le score global n'est pas un AIT.
+  * Les scores de température implicites doivent être calculés en utilisant un niveau de confiance de 66\%, plutôt que de 50\%.
+  * Calculer les scores de réchauffement sur une base d'émissions cumulées jusqu'en 2050 afin de tenir compte de manière appropriée de la relation physique entre les émissions cumulées et les résultats en termes de réchauffement.
+  
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/survey-chapter-alternate.Rmd b/inst/extdata/PA2024CH_fr_exec_summary/survey-chapter-alternate.Rmd
new file mode 100755
index 00000000..12de79fa
--- /dev/null
+++ b/inst/extdata/PA2024CH_fr_exec_summary/survey-chapter-alternate.Rmd
@@ -0,0 +1,5 @@
+## Enquête sur l’action climatique
+
+Pas d'étude sur les Actions Climatiques trouvé
+
+\newpage
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/survey-chapter.Rmd b/inst/extdata/PA2024CH_fr_exec_summary/survey-chapter.Rmd
new file mode 100644
index 00000000..02e2950f
--- /dev/null
+++ b/inst/extdata/PA2024CH_fr_exec_summary/survey-chapter.Rmd
@@ -0,0 +1,202 @@
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+
+\section{Enquête sur l’action climatique}
+
+Cette section offre un aperçu de l'efficacité des actions climatiques au niveau institutionnel. Les résultats sont basés sur l'enquête qualitative complémentaire sur l'action climatique. Les résultats de l'enquête sont comparés aux pairs et aux résultats quantitatifs de ce portefeuille. Veuillez noter que les réponses à l'enquête ont été autodéclarées et non vérifiées par 2DII, RMI et WP.
+
+\fbox{\begin{minipage}{\textwidth}
+\textbf{Explication sur les graphiques à fléchettes ci-dessous:} Les graphiques à fléchettes sont un type de graphique nouvellement développé qui représente vos mesures pertinentes pour le climat. Chaque cercle représente une mesure pertinente pour le climat et est coloré si la mesure est en place. Le niveau d'efficacité des mesures augmente en allant de l'extérieur vers l'intérieur des anneaux et avec l'intensité de la couleur. Plus les cercles sont remplis en allant du cercle extérieur jusqu’au cercle intérieur, plus les actions climatiques de votre institution sont ambitieuses. Pour obtenir de plus amples informations sur les mesures spécifiques indiquées dans les différentes strates, veuillez consulter l‘annexe. 
+\end{minipage}
+}
+
+\begin{esbox}{Initiatives, stratégie climatique et rapports}[\engagementImage]
+
+Sur le côté gauche, vous trouvez les initiatives dont vous faites partie. Plus la taille de la police est grande, plus le nombre de pairs qui en font partie est important. Au milieu, vous pouvez voir un diagramme stratigraphique indiquant votre stratégie climatique. À droite, vous pouvez voir combien de vos pairs ont mis en place les trois stratégies climatiques, ce qui est considéré comme étant la meilleure pratique.
+
+\begin{center}
+\begin{minipage}{0.4\textwidth}
+```
+
+```{r plots_overview_left, out.width="\\linewidth"}
+knitr::include_graphics(file.path(survey_dir, language, "plot_wordcloud.png"))
+```
+
+```{=latex}
+\end{minipage}%
+\hspace{0.15\textwidth}
+\begin{minipage}{0.4\textwidth}
+```
+
+
+```{r plots_overview_right, out.width="\\linewidth"}
+knitr::include_graphics(file.path(survey_dir, language, "plot_layer_with_peer_info_climate_goals.png"))
+```
+
+```{=latex}
+
+\end{minipage}%
+\end{center}
+
+(Gauche) Les initiatives dans lesquels vous (bleu foncé) et vos pairs (bleu clair) font partie. (Droite) Votre badge de stratégie climat et celui de vos pairs.
+
+\end{esbox}
+
+\begin{esbox}{Engagement des bénéficiaires d’investissements par secteur}[\engagementImage]
+
+Les recherches indiquent que l'engagement constitue l'un des moyens les plus efficaces pour améliorer l'alignement des entreprises bénéficiant d’investissements sur les objectifs climatiques par le biais d'actions et d'obligations. Par conséquent, les graphiques à fléchettes relatifs à l'engagement ci-dessous présentent vos mesures d'engagement pour trois secteurs cruciaux pour le climat et complètent ainsi la section précédente sur l'alignement. Le texte fournit en outre une comparaison avec la proportion de pairs appliquant les meilleures pratiques, c'est-à-dire celles qui couvrent toutes les strates.
+
+\begin{center}
+\begin{minipage}{0.3\textwidth}
+```
+
+```{r plot_layer_with_peer_info_engagement_left, out.width="\\linewidth"}
+knitr::include_graphics(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Fossil_Fuels.png")
+)
+```
+
+```{=latex}
+\end{minipage}%
+\begin{minipage}{0.3\textwidth}
+```
+
+
+```{r plot_layer_with_peer_info_engagement_center, out.width="\\linewidth"}
+knitr::include_graphics(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Power.png")
+)
+```
+
+```{=latex}
+\end{minipage}%
+\begin{minipage}{0.3\textwidth}
+```
+
+
+```{r plot_layer_with_peer_info_engagement_right, out.width="\\linewidth"}
+knitr::include_graphics(c(
+file.path(survey_dir, language, "plot_layer_with_peer_info_engagement_Automotive.png")
+))
+```
+
+```{=latex}
+\end{minipage}%
+
+Badges d'engagement et comparaison avec les pairs par secteur. Gauche: Combustibles Fossiles, Milieu: Automobile, Droite: Electricité.
+
+\end{center}
+
+\end{esbox}
+
+\begin{esbox}{Sélection négative par rapport à l'exposition PACTA aux combustibles fossiles}[\engagementImage]
+
+Ces graphiques comparent les stratégies déclarées comme étant alignées sur les objectifs climatiques à l'exposition à l'extraction de charbon et à l'extraction de pétrole et de gaz. Si des stratégies d'exclusion sont appliquées au niveau institutionnel, on s'attend à ce que l'exposition à ces technologies soit nulle ou très faible par rapport à l'ensemble des portefeuilles pairs.
+
+\begin{center}
+```
+
+```{r plot_exclusion_coal, fig.width=10, fig.height=3.5}
+plot_bo_c_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_coal_Corporate_bonds.png"
+    )
+  )
+)
+
+data_exposures_survey_b <- prep_exposures_survey(results_portfolio,
+                                               peers_results_aggregated,
+                                             sector = "coal",
+                                             asset_class = "bonds")
+
+plot_bo_c_exp <- (patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_b) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1)))
+
+plot_eq_c_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_coal_Listed_equities.png"
+    )
+  )
+)
+
+data_exposures_survey_e <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "coal",
+                                             asset_class = "equity")
+
+plot_eq_c_exp <- (patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_e) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1)))
+
+patchwork::wrap_elements(plot_bo_c_survey) + patchwork::wrap_elements(plot_bo_c_exp) +
+  patchwork::wrap_elements(plot_eq_c_survey) + patchwork::wrap_elements(plot_eq_c_exp) +
+  patchwork::plot_layout(widths = c(1, 1.2, 1, 1.2))
+```
+
+```{=latex}
+
+Badges d'exclusion pour le charbon comparé à l'exposure PACTA pour les obligations d'entreprise (Gauche) et actions (Droite).
+
+```
+
+
+```{r plot_exclusion_oil_gas, fig.width=10, fig.height=3.5}
+plot_bo_og_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+  file.path(
+    survey_dir, 
+    language, 
+    "plot_layer_asset_exclusion_oil_Corporate_bonds.png"
+    )
+  )
+)
+
+data_exposures_survey_b <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "oil_and_gas",
+                                             asset_class = "bonds")
+
+plot_bo_og_exp <- patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_b) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1))
+
+plot_eq_og_survey <- pacta.executive.summary::rasterGrob(
+  pacta.executive.summary::readPNG(
+    file.path(
+      survey_dir, 
+      language, 
+      "plot_layer_asset_exclusion_oil_Listed_equities.png"
+      )
+  )
+)
+
+data_exposures_survey_e <- prep_exposures_survey(results_portfolio, 
+                                               peers_results_aggregated,
+                                             sector = "oil_and_gas",
+                                             asset_class = "equity")
+
+plot_eq_og_exp <- patchwork::plot_spacer() + (plot_exposures_survey(data_exposures_survey_e) +
+  labs(subtitle = "Sectoral exposure\n(as % of AUM)")) + patchwork::plot_spacer() +
+  patchwork::plot_layout(nrow = 3, heights = c(0.1, 1, 0.1))
+
+patchwork::wrap_elements(plot_bo_og_survey) + patchwork::wrap_elements(plot_bo_og_exp) +
+  patchwork::wrap_elements(plot_eq_og_survey) + patchwork::wrap_elements(plot_eq_og_exp) +
+  patchwork::plot_layout(widths = c(1, 1.2, 1, 1.2))
+```
+
+Badges d'exclusion pour le pétrole et le gaz comparé à l'exposure PACTA pour les obligations d'entreprise (Gauche) et actions (Droite).
+
+```{=latex}
+\end{center}
+\end{esbox}
+\newpage
+```
+
diff --git a/inst/extdata/PA2024CH_fr_exec_summary/template.Rmd b/inst/extdata/PA2024CH_fr_exec_summary/template.Rmd
new file mode 100644
index 00000000..b5bdefa9
--- /dev/null
+++ b/inst/extdata/PA2024CH_fr_exec_summary/template.Rmd
@@ -0,0 +1,724 @@
+---
+output:
+  pdf_document:
+    latex_engine: xelatex
+    includes:
+      in_header: "preamble.tex"
+fontsize: 10pt
+always_allow_html: true
+params:
+  survey_dir: NULL
+  real_estate_dir: NULL
+  real_estate_flag: FALSE
+  score_card_dir: NULL
+  language: EN
+  investor_name: investor
+  portfolio_name: portfolio
+  peer_group: pensionfund
+  audit_data: NULL
+  total_portfolio: NULL
+  scenario_selected: NULL
+  emissions_data: NULL
+  results_portfolio: NULL
+  peers_results_aggregated: NULL
+  peers_results_individual: NULL
+  indices_results_portfolio: NULL
+  currency_exchange_value: NULL
+  log_dir: NULL
+---
+
+```{=latex}
+% please note that LaTeX has semantic whitespace, espescially line
+% breaks. Adjust or add carefully.
+% There are also spots where a comment character (%) is used
+% semantically, to suppress whitespace from being inserted (generally at
+% the end of an environment)
+```
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE, 
+                      error=FALSE, fig.keep='all')
+
+survey_dir <- params$survey_dir
+real_estate_dir <- params$real_estate_dir
+score_card_dir <- params$score_card_dir
+investor_name <- params$investor_name
+portfolio_name <- params$portfolio_name
+peer_group <- params$peer_group
+scenario_selected <- params$scenario_selected
+currency_exchange_value <- params$currency_exchange_value
+log_dir <- params$log_dir
+
+results_portfolio <- params$results_portfolio
+peers_results_individual <- params$peers_results_individual
+peers_results_aggregated <- params$peers_results_aggregated
+indices_results_portfolio <- params$indices_results_portfolio
+total_portfolio <- params$total_portfolio
+audit_data <- params$audit_data
+emissions_data <- params$emissions_data
+```
+
+---
+title: "Résumé"
+subtitle:  |  
+  | Test climatique PACTA Suisse 2024
+  | Résultats de `r investor_name`
+---
+
+```{=latex}
+\begin{esbox}[0.25\textwidth]{Table des matières}
+
+\begin{enumerate}
+\item Actions et obligations d'entreprise (aperçu)
+\item Actions et obligations d'entreprise (actuelles et futures)
+\item Enquête
+\item Immobilier et hypothèques
+\item Annexe (Explication détaillée du graphique; FAQ)
+\item Tableau de bord basé sur la méthode PACTA et informé par les Swiss Climate Scores
+\end{enumerate}
+
+\end{esbox}%
+\begin{esbox}[0.75\textwidth]{À propos du test climatique PACTA 2022}
+```
+
+```{r number_peer, fig.height = 6}
+number_peers <- readr::read_csv(
+  file.path(score_card_dir, "number_peers.csv"),
+  col_types = readr::cols_only(
+    organization_type = "c",
+    n = "n"
+  )
+) %>% 
+  dplyr::filter(.data$organization_type == .env$peer_group) %>% 
+  dplyr::pull("n")
+```
+
+<span style="color:red"><font size="5">TO BE REVIEWED FOR COP 2024</font></span>
+
+```{=latex}
+
+La Suisse et son marché financier se sont engagés à passer à zéro émission nette de gaz à effet de serre d'ici à 2050 afin d'atteindre les objectifs de l'accord de Paris sur le climat visant à limiter le réchauffement climatique bien en dessous de 2\textdegree C et de poursuivre leurs efforts pour le limiter à 1,5\textdegree C. Le test climatique PACTA 2022 fournit des informations comparables sur les progrès réalisés par la place financière suisse et les différentes institutions financières participantes en vue d’atteindre les objectifs climatiques. \startunderscoreletter `r gsub("&", "\\&", stringr::str_to_title(investor_name), fixed = TRUE)` \stopunderscoreletter a été invité à participer au test par l'OFEV \textbf{(\href{https://www.bafu.admin.ch/bafu/fr/home/themes/climat/info-specialistes/climat-et-marche-financier.html}{lien})} et le SIF \textbf{(\href{https://www.sif.admin.ch/sif/fr/home/finanzmarktpolitik/finance-durable.html}{lien})} avec le soutien des associations, en vue d’un examen volontaire de ses portefeuilles financiers. Le test PACTA associe une évaluation quantitative des portefeuilles mondiaux d'actions et d'obligations d'entreprises cotées ainsi que des portefeuilles immobiliers et hypothécaires suisses à une évaluation qualitative des actions climatiques. Au total, 133 institutions financières ont participé au test, dont \startunderscoreletter `r number_peers` \stopunderscoreletter étaient des pairs (c'est-à-dire des participants du même secteur financier que les institutions de prévoyance, les assurances, les banques et les gestionnaires d'actifs).
+
+Ce résumé est une synthèse des résultats individuels de votre portefeuille téléchargé \startunderscoreletter {`r gsub("&", "\\&", portfolio_name, fixed = TRUE)`}\stopunderscoreletter. \startunderscoreletter `r gsub("&", "\\&", stringr::str_to_title(investor_name), fixed = TRUE)` \stopunderscoreletter a reçu un résumé par portefeuille. Un rapport interactif individuel détaillé (par portefeuille ou agrégés) peut être consulté via votre compte personnel sur la Plateforme Transition Monitor en allemand, français et partiellement en anglais \textbf{\href{https://platform.transitionmonitor.com/}{(lien)}}. Un méta-rapport contenant des données anonymisées et agrégées de tous les participants, ainsi que des rapports sectoriels, est publié sur le site Internet de l'OFEV \textbf{(\href{https://www.bafu.admin.ch/bafu/fr/home/themes/climat/info-specialistes/climat-et-marche-financier.html}{lien})}.
+
+
+\end{esbox}
+
+\begin{esbox}{Mesure de l'alignement climatique}
+
+Selon PACTA et l'OFEV, trois éléments principaux sont utiles pour mesurer l'alignement sur les objectifs climatiques, lesquels sont présentés ci-dessous. Les icônes sont utilisées tout au long de ce document pour indiquer la catégorie de chaque graphique.
+
+\vspace{1em}
+
+\begin{center}
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\exposureImage[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Exposition:} fournit des informations sur l'exposition de votre portefeuille aux secteurs pertinents pour le climat, y compris celui des bâtiments, et offre donc une perspective de risque par rapport à l'alignement climatique.
+\end{minipage}%
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\alignmentImage%[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Alignement de la trajectoire:} Mesure l’alignement des plans de production des entreprises bénéficiant d’investissements ou des plans de rénovation de bâtiments par rapport aux scénarios climatiques et répartit ainsi la responsabilité et le risque entre chaque entreprise et bâtiment concernés.
+\end{minipage}%
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+\begin{minipage}{0.3\linewidth}%
+\begin{center}
+
+\begin{minipage}[c]{0.3\textwidth}
+\engagementImage[width=\textwidth]%
+\end{minipage}%
+\begin{minipage}[c]{0.7\textwidth}
+\textbf{Engagement et autres indicateurs qualitatifs:} complète l'analyse par des informations sur les actions climatiques susceptibles d’avoir un impact climatique réel.
+\end{minipage}%
+
+
+\end{center}
+\end{minipage}% % note the semantic % after end
+
+\end{center}
+\end{esbox}
+
+\begin{esbox}{Aperçu des résultats pour les actions et obligations d’entreprise}[\exposureImage]
+
+L'analyse des portefeuilles d'actions et d'obligations d'entreprises cotées couvre 8 secteurs pertinents pour le climat*. Pour ces secteurs, l'exposition ainsi que l'alignement sur une trajectoire visant à limiter le réchauffement climatique bien en dessous de 2\textdegree C (Accord de Paris) ont été analysés. 
+La mesure de l'alignement de la trajectoire a été effectuée à l'aide de la méthode PACTA. PACTA compare les plans de production prospectifs de toutes les entreprises bénéficiant d’investissements dans les secteurs PACTA au niveau technologique aux objectifs tirés des scénarios climatiques. Pour obtenir de plus amples informations sur la méthodologie PACTA, veuillez consulter PACTA Knowledge Hub \textbf{(\href{https://rmi.gitbook.io/pacta-knowledge-hub/}{lien})}.
+
+```
+
+```{r diagram, fig.width=8, fig.height=2}
+tryCatch(
+  {
+    data_diagram <- prep_diagram(
+      audit_data = audit_data,
+      emissions_data = emissions_data,
+      currency_exchange_value = currency_exchange_value
+    )
+    plot_diagram(data_diagram)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_diagram(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+```
+
+```{=latex}
+
+\raggedleft\footnotesize{* charbon, pétrole, gaz, électricité, automobile, ciment, acier et aviation}
+
+\end{esbox}
+
+\newpage
+
+\section{Résultats pour les actions et obligations d’entreprise}
+
+\begin{esbox}{Etat actuel (secteurs PACTA)}[\exposureImage]
+
+%FIXME: make footnote
+\textbf{Exposition* aux secteurs et technologies concernés par le climat en \% de l'actif sous gestion}
+
+Le graphique fournit des information sur l'exposition aux entreprises avec des actifs physiques dans les parties de la chaîne de valeur couvert par PACTA. Les combustibles fossiles (extraction de charbon, pétrole, gaz) sont présentés de manière agrégée et désagrégée à des fins de comparaison avec les pairs (institutions de prévoyance, les assurances, les banques ou les gestionnaires d'actif) et un indice.
+```
+
+```{r exposure, fig.height=3.5, fig.width=6, fig.show='hold', out.width='50%'}
+tryCatch(
+  {
+    data_green_brown_bars <- prep_green_brown_bars(
+      results_portfolio = results_portfolio,
+      scenario_selected = scenario_selected
+    )
+    plot_green_brown_bars(data_green_brown_bars)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_green_brown_bars(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_fossil_bars <- prep_fossil_bars(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected
+    )
+    plot_fossil_bars(data_fossil_bars)
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_fossil_bars(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+```
+
+```{=latex}
+
+** Technologies \guillemetleft à faible émission de CO\textsubscript{2}\guillemetright \ (low-carbon): énergies renouvelables et l'hydroélectricité pour l'électricité et énergie électrique pour l'automobile. Technologies \guillemetleft à forte émission de carbone\guillemetright \ (high-carbon): charbon, pétrole, gaz 
+\end{esbox}
+
+\begin{esbox}{État actuel et futur (secteur de l'électricité)}[\alignmentImage
+\exposureImage]
+
+\textbf{Exposition actuelle par rapport à l'alignement futur pour le secteur de l'électricité}
+
+Le graphique ci-dessous montre l'exposition actuelle aux faibles émissions de carbone et l'alignement sur les scénarios climatiques prospectifs dans le secteur de l'électricité pour vous et pour vos pairs. L'exposition actuelle aux technologies à faible émission de carbone dans le secteur de l'électricité augmente en allant vers la droite, tandis que l'alignement s'améliore en allant vers le haut. Une augmentation significative des capacités en énergie renouvelable sera nécessaire afin d’atteindre un scénario climatique de 1,5\textdegree C, de sorte que même les entreprises présentant une part actuelle élevée de technologies à faible émission de carbone devront construire de nouvelles capacités afin d'être alignées à l'avenir. Une part actuelle élevée de faibles émissions de carbone et un faible alignement futur indiqueraient par conséquent un manque d'investissements planifiés dans le domaine des énergies renouvelables.
+
+```
+
+```{r scatter, fig.show="hold", out.width="0.4\\textwidth", fig.align='center'}
+
+tryCatch(
+  {
+    data_scatter_power_b <- prep_scatter(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      peers_results_individual = peers_results_individual,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected,
+      asset_class = "bonds"
+    )
+
+    all_entity_types <- length(unique(data_scatter_power_b$entity_type)) == 4
+
+    if (all_entity_types | nrow(data_scatter_power_b) == 0) {
+      plot_scatter(data_scatter_power_b) +
+        patchwork::plot_annotation(
+          title = "Bonds",
+          theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 18))
+        )
+    }
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scatter() for bonds. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_scatter_power_e <- prep_scatter(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      peers_results_individual = peers_results_individual,
+      indices_results_portfolio = indices_results_portfolio,
+      scenario_selected = scenario_selected,
+      asset_class = "equity"
+    )
+
+    all_entity_types <- length(unique(data_scatter_power_e$entity_type)) == 4
+
+    if (all_entity_types | nrow(data_scatter_power_e) == 0) {
+      plot_scatter(data_scatter_power_e) +
+        patchwork::plot_annotation(
+          title = "Equity",
+          theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 18))
+        )
+    }
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scatter() for equity. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{esbox}
+
+\begin{esbox}{Futur (autres secteurs PACTA)}[\alignmentImage]
+
+\textbf{Score agrégé PACTA d'alignement climatique}
+
+Le score agrégé compare l'alignement de tous les actifs sur le scénario GECO 2021 jusqu'en 2026. Le score est calculé à la fois au niveau du portefeuille agrégé (voir aussi voir aussi les indicateurs selon les "Swiss Climate Scores") et par secteur PACTA (à l'exception du ciment qui n'est pas couvert par GECO 2021).\footnote{Les scénarios climatiques GECO ont été choisis parce qu'ils couvraient le plus de secteurs PACTA. Veuillez noter que les scénarios GECO prévoient une accélération des changements technologiques après les cinq années analysées par PACTA. En tant que tel, votre score global pourrait être inférieur si vous utilisez d'autres scénarios.}
+
+```
+
+```{r scores, fig.show='hold', out.width='0.4\\textwidth', fig.align='center'}
+tryCatch(
+  {
+    data_scores_b <- prep_scores(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "bonds"
+    )
+    plot_scores(data_scores_b) +
+      patchwork::plot_annotation(
+        title = "Bonds",
+        theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 22))
+      )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+
+tryCatch(
+  {
+    data_scores_e <- prep_scores(
+      results_portfolio = results_portfolio,
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "equity"
+    )
+    plot_scores(data_scores_e) +
+      patchwork::plot_annotation(
+        title = "Equity",
+        theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 22))
+      )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_scores(). Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+\end{esbox}
+
+\newpage
+
+\section{Résultats pour les actions et obligations d’entreprise}
+
+\begin{esbox}{Transition}[\alignmentImage \exposureImage]
+
+\textbf{Alignement sur les scénarios par technologie}
+
+Alors que la section précédente a fourni des informations sur l'exposition actuelle aux différents secteurs PACTA ainsi qu'un aperçu de l'alignement au niveau agrégé et par secteur, cette section fournit des informations complémentaires sur l'alignement avec les feuilles de route technologiques des scénarios publié par GECO 2021 pour les secteurs PACTA.
+Les graphiques ci-dessous indiquent sur quel scénario les technologies de votre portefeuille sont alignées par rapport à vos pairs. La position de chaque carré dans les bandes de couleur définit le scénario sur lequel votre portefeuille et les portefeuilles de vos pairs seront alignés d’ici 5 ans. La taille des carrés indique l'exposition en \% de l'actif sous gestion.
+Pour en savoir davantage sur l'évolution de l'alignement de votre portefeuille au cours des cinq prochaines années par technologie, vous pouvez consulter les graphiques de trajectoire respectifs dans le rapport interactif. Vous y trouverez également des informations supplémentaires au niveau de l'entreprise.
+
+```
+
+```{r alignment_table_bonds, fig.height=4, fig.width=6, fig.align='center'}
+tryCatch(
+  {
+    data_alignment_table <- prep_alignment_table(
+      results_portfolio = results_portfolio, 
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "bonds"
+    )
+    plot_alignment_table(data_alignment_table) +
+    patchwork::plot_annotation(
+      title = "Bonds",
+      theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16))
+    )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_alignment_table() for bonds. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+
+```{r alignment_table_equity, fig.height=4, fig.width=6, fig.align='center'}
+tryCatch(
+  {
+    data_alignment_table <- prep_alignment_table(
+      results_portfolio = results_portfolio, 
+      peers_results_aggregated = peers_results_aggregated,
+      asset_class = "equity"
+    )
+    plot_alignment_table(data_alignment_table) +
+    patchwork::plot_annotation(
+      title = "Equity",
+      theme = theme(plot.title = element_text(face = "bold", hjust = 0.5, size = 16))
+    )
+  },
+  error = function(e) {
+    write_log(
+      "ES: There was an error in prep/plot_alignment_table() for equity. Returning empty plot object.\n",
+      file_path = log_dir
+    )
+    empty_plot_error_message()
+  }
+)
+```
+
+```{=latex}
+%FIXME: footnote
+* Energies renouvelables: inclut l'énergie solaire et éolienne, mais exclut l'hydroélectricité et le nucléaire
+
+** Automobile: comprend les véhicules légers (LDV)
+
+\end{esbox}
+
+\newpage
+```
+
+```{r survey_chapter, child='survey-chapter.Rmd', eval = (dir.exists(survey_dir) & length(list.files(survey_dir)) > 0)}
+```
+
+```{r survey_chapter_alternate, child='survey-chapter-alternate.Rmd', eval = !(dir.exists(survey_dir) & length(list.files(survey_dir)) > 0)}
+```
+
+
+```{r real_estate_chapter, child="real-estate-chapter.Rmd", eval = real_estate_flag}
+```
+
+ <!-- FIXME: Find a more elegant way to make this switch. -->
+```{r real_estate_chapter, child="real-estate-chapter-alternate.Rmd", eval = !real_estate_flag}
+```
+
+```{=latex}
+
+\newpage
+
+\section{Annexe (I) : explication supplémentaire}
+
+\subsection{Exposition aux secteurs et technologies pertinents pour le climat en \% de l'actif sous gestion} 
+
+
+\begin{minipage}[t]{0.3\linewidth}
+\begin{center}
+\textbf{Tous les secteurs PACTA}
+
+\includegraphics[width=\textwidth]{chart_sample_1}
+
+\end{center}
+\end{minipage}%
+\begin{minipage}[t]{0.3\linewidth}
+\begin{center}
+\textbf{Combustibles fossiles}
+
+\includegraphics[width=\textwidth]{chart_sample_2}
+
+\end{center}
+\end{minipage}%
+
+La partie gauche de ce graphique est un graphique à barres représentant l'exposition du portefeuille à chacun des 8 secteurs PACTA  en pour cent de l'actif sous gestion. Les barres sont classées selon l’importance de l'exposition dont la plus élevée apparaît en haut. De plus, la répartition entre les différentes technologies (à faible émission de carbone, à forte émission de carbone, non spécifiée) est présentée pour les secteurs pour lesquels une telle répartition est définie.
+La partie droite du graphique détaille l'exposition au secteur de l'extraction de combustibles fossiles en indiquant la répartition entre les différents combustibles fossiles charbon, pétrole et gaz. En outre, une comparaison avec les pairs (institutions de prévonyance, assurances, banques ou gestionnaires de fortune) ainsi qu'avec un ETF pour l'indice MSCI World est visible.
+
+\subsection{Exposition actuelle par rapport à l'alignement futur pour le secteur de l'électricité}
+
+
+\includegraphics[width=0.5\textwidth]{chart_sample_3}
+
+Ce graphique indique l'exposition actuelle aux technologies à faible émission de carbone (pourcentage d'exposition sectorielle, axe des x) par rapport à la métrique d'alignement au niveau du secteur concerné (score d'alignement, axe des y). Les points colorés représentent différentes entités (portefeuille, moyenne de tous les participants, moyenne des pairs). Le graphique examine la relation qui existe entre les deux valeurs et fournit également un contexte pour le score d'alignement. Idéalement, une institution souhaiterait être positionnée dans l’angle supérieur droit (forte exposition au bas carbone et fort alignement). L’angle inférieur gauche correspond à la position la moins souhaitée (faible exposition au bas carbone et faible alignement).
+
+\newpage
+
+\section{Annexe (I) : explication supplémentaire}
+
+\subsection{Scores d'alignement agrégés}
+
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{chart_sample_4}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Ce graphique affiche les scores d'alignement à la fois au niveau agrégé (barre la plus à gauche) et au niveau sectoriel. Le plus grand triangle bleu foncé indique le score obtenu par ce portefeuille et le plus petit triangle gris indique le résultat moyen obtenu par les pairs. La ligne horizontale délimite les scores alignés sur la trajectoire de 1,8\textdegree C (ou plus) par rapport à ceux qui ne le sont pas. La trajectoire de 1,8\textdegree C correspond à l'objectif de l'Accord de Paris visant à limiter le réchauffement climatique à une hausse des températures \guillemetleft bien en dessous de 2\textdegree C\guillemetright . Les scores indiquent le scénario sur lequel s'alignent les plans de production des entreprises bénéficiant d’investissements. Pour obtenir de plus amples informations, veuillez vous reporter aux deux représentations ci-dessous.
+
+\end{minipage}%
+
+\subsection{Choix et notation du scénario}
+
+Ce tableau présente les spécifications techniques relatives aux scénarios afin de définir le score. Pour chaque score, on peut visualiser les exigences relatives à chaque scénario sur la même ligne. Vous trouverez plus d'explications sur les scénarios dans le rapport de test interactif.
+
+\begin{center}
+\includegraphics[width=\textwidth]{table_scenario_grading}
+\end{center}
+
+
+\subsection{Exemple de plans de production d'une technologie verte selon les scores.}
+
+Le graphique ci-dessous présente les spécifications du score d'alignement agrégé pour un plan exemplaire de production d'une technologie verte. Pour obtenir le score agrégé, les scores au niveau des secteurs sont agrégés en un seul score.
+
+
+\begin{center}
+\includegraphics{chart_scenario_grading}
+\end{center}
+
+\newpage
+
+\section{Annexe (II): explication supplémentaire}
+
+\subsection{Diagramme stratigraphique: stratégie climatique générales}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+\includegraphics{chart_sample_5}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+
+Ce diagramme stratigraphique indique si votre institution dans son ensemble, selon vos réponses, dispose d’une pratique d'établissement de rapports, a mis en place une stratégie climatique, et poursuit des objectifs climatiques concrets. Une efficacité croissante apparaît en allant de la première strate (externe) à la troisième strate (interne). La meilleure pratique correspond au fait que les trois strates soient couvertes.
+La transparence, par le biais de rapports, constitue un premier pas dans la bonne direction, mais en définitive un objectif climatique concret doit être défini et soutenu par une stratégie climatique fiable afin d’apporter un réel changement.
+
+\end{minipage}%
+
+\subsection{Diagramme stratigraphique: engagement des bénéficiaires d’investissements dans les secteurs des combustibles fossiles, de l'automobile et de l'énergie}
+
+\begin{minipage}[t]{0.3\textwidth}
+\verticalAlignImage
+
+\includegraphics[width=\textwidth]{chart_sample_6}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Ce diagramme stratigraphique indique, selon vos réponses, quelles actions votre institution pratique en matière d'engagement. Cela commence par une politique générale d'engagement, dont l'efficacité peut être améliorée grâce à une équipe dédiée à l'engagement, et enfin par un engagement conjoint avec d'autres institutions. Il est question de \guillemetleft meilleure pratique\guillemetright \ lorsque les trois strates sont couvertes.
+Le graphique est présenté séparément pour les secteurs des combustibles fossiles, de l'automobile et de l'énergie car ceux-ci (i) sont considérés comme les secteurs les plus pertinents pour le climat et (ii) disposent de substituts à faible émission de carbone qui permettent aux investisseurs de soutenir la transition vers les technologies existantes.
+Le fait de considérer l'engagement conjoint comme un moyen d'accroître l'efficacité des pratiques en matière d'engagement est un argument partagé par la littérature sur le sujet et soutenu, par exemple, par la NZAOA \textbf{\href{https://www.unepfi.org/wordpress/wp-content/uploads/2022/03/NZAOA_The-future-of-investor-engagement.pdf}{(lien)}}. 
+
+
+\end{minipage}%
+
+\subsection{Diagramme stratigraphique: sélection négative dans le secteur du pétrole et du gaz ainsi que du charbon}
+
+
+\begin{minipage}[t]{0.3\textwidth}
+
+\verticalAlignImage
+
+\includegraphics[width=\textwidth]{chart_sample_7}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Ce diagramme stratigraphique indique si votre institution dans son ensemble, selon vos réponses, a défini des critères d'exclusion, pratique une sous-pondération dans les secteurs respectifs, et exclut des entreprises si votre action n'aboutit pas. La meilleure pratique correspond au fait que les trois strates soient couvertes.
+Ce diagramme stratigraphique est présenté séparément pour le charbon, d'une part, et le pétrole et le gaz, d'autre part, parallèlement à une comparaison avec l'exposition dans les secteurs respectifs. La comparaison avec l'exposition PACTA vise à donner un aperçu de l'efficacité des actions de sélection négative.
+
+\end{minipage}%
+
+\newpage
+
+\section{Annex (III): Explication des graphiques}
+
+\begin{minipage}[t]{0.4\textwidth}
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_map}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Localisation géographique de tous les bâtiments en détention directe en Suisse. La couleur représente l'utilisation principale du bâtiment respectif.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_energy_carrier}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Proportion des sources d'énergie dans les bâtiments et les hypothèques détenus directement. Les valeurs transmises ou tirées du GWR sont indiquées. Si aucune de ces deux valeurs n'est disponible, on utilise "pétrole" selon les indications de l'OFEV.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_distribtion}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Intensité CO\textsubscript{2} moyenne de tous les immeubles ou hypothèques détenus directement par participant. La colonne rouge représente la valeur moyenne du propre portefeuille respectif. La ligne horizontale représente la valeur 15,7 kg/m\textsuperscript{2} de la trajectoire de réduction "Stratégie climatique à long terme de la Suisse" pour l'année 2021.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_emissions}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Évolution dans le temps de l'intensité moyenne en CO\textsubscript{2} de tous les bâtiments détenus directement par participant en comparaison avec la trajectoire de réduction selon la "Stratégie climatique à long terme de la Suisse" de la Confédération.
+
+\end{minipage}%
+
+\begin{minipage}[t]{0.4\textwidth}
+\verticalAlignImage
+\includegraphics[width=\textwidth]{real_estate_stranded_asset}
+
+\end{minipage}%
+\begin{minipage}[t]{0.6\textwidth}
+
+Proportions d'hypothèques au-dessus ou au-dessous de la trajectoire de réduction selon la "Stratégie climatique à long terme de la Suisse" de la Confédération par rapport à leurs hypothèques à l'époque respective. En vert clair, les hypothèques qui se situent en dessous de la trajectoire de réduction au moment considéré en raison de mesures de rénovation.
+
+\end{minipage}%
+
+\newpage
+
+\section{Annexe (IV): FAQ}
+
+\begin{esbox}{Quels sont les secteurs PACTA?}
+
+L'analyse PACTA couvre 8 secteurs concernés par le climat: charbon, pétrole, gaz, automobile, électricité, ciment, acier et aviation.
+En règle générale, les portefeuilles des institutions financières sont investis à hauteur de 5 à 15\% en valeur dans ces secteurs. Même si l'exposition financière peut sembler faible, les investissements représentent toujours, en moyenne, une part beaucoup plus importante des émissions. Veuillez consulter les graphiques présentant un exemple de portefeuille ci-dessous: 
+
+\begin{center}
+
+\begin{minipage}[t]{0.4\textwidth}
+\begin{center}
+\textbf{Exposition financière}
+
+
+\includegraphics[width=\textwidth]{chart_sample_8}
+
+\end{center}
+
+\end{minipage}%
+\begin{minipage}[t]{0.4\textwidth}
+
+\begin{center}
+\textbf{Exposition aux émissions}
+
+
+\includegraphics[width=\textwidth]{chart_sample_9}
+\end{center}
+\end{minipage}
+
+\end{center}
+\end{esbox}
+
+\begin{esbox}{Quelles classes d'actifs sont couvertes par l’analyse PACTA?}
+
+La méthodologie PACTA porte sur les actions cotées en bourse et les obligations d’entreprises. En coopération avec Wüest Partner AG, le test climatique PACTA Suisse 2022 comprend également l'immobilier et les hypothèques suisses.
+
+\end{esbox}
+
+\begin{esbox}{Comment puis-je utiliser mes résultats à des fins de divulgation?}
+
+La mesure dans laquelle vous utilisez vos résultats dépend de vous. Cependant, les résultats conviennent à une variété de productions de rapport, telles que:
+
+\begin{itemize}
+\item Rapports et communication internes
+\item Rapports dans l'environnement de l'institution financière participante (clients, assurés, etc.)
+\item Communication externe: Mise en œuvre des recommandations du Conseil fédéral \textbf{(\href{https://www.sif.admin.ch/sif/de/home/dokumentation/medienmitteilungen/medienmitteilungen.msg-id-85925.html}{lien})} concernant l'utilisation d’indicateurs de compatibilité climatique comparables et significatifs afin d’aider à générer de la transparence dans tous les produits financiers et portefeuilles des clients, avec notamment des indicateurs conçus selon les Swiss Climate Scores \textbf{\href{https://www.sif.admin.ch/sif/fr/home/swiss-climate-scores/bewertungsparameter.html}{(lien)}}.
+\item Des détails concernant les modalités d'utilisation des résultats pour les rapports réalisés selon le TCFD, le SFDR de l'UE ou la taxonomie de l'UE sont disponibles dans le rapport "The Disclosure Puzzle – the role of PACTA" \textbf{(\href{https://2degrees-investing.org/wp-content/uploads/2020/03/PACTA-disclosures-report.pdf}{lien})}.
+\end{itemize}
+
+\end{esbox}
+
+\begin{esbox}{Où puis-je trouver les résultats complets de ce test (rapport interactif)?}
+
+Ce résumé analytique vient compléter la présentation générale et interactive de vos résultats dans le rapport de test dit \guillemetleft interactif\guillemetright . Vous pouvez le consulter sur la plateforme Transition Monitor sous l’onglet \guillemetleft Résultats\guillemetright \ après vous être connecté(e) avec votre mot de passe \textbf{(\href{https://platform.transitionmonitor.com/}{lien})}.
+
+\end{esbox}
+
+\begin{esbox}{Où puis-je en apprendre davantage sur la méthodologie PACTA?}
+
+Si vous souhaitez en apprendre davantage sur la méthodologie open source qui sous-tend PACTA, vous pouvez le faire sur notre \guillemetleft PACTA Knowledge Hub\guillemetright \ \textbf{(\href{https://rmi.gitbook.io/pacta-knowledge-hub/}{lien})}.
+
+\end{esbox}
+
+\newpage
+
+```
+
+```{r scorecard, child='scorecard.Rmd'}
+```
+