Поднимите все вхождения типа во вложенном словаре до ключа верхнего уровня

Используйте функцию сопоставления, чтобы определить, что нужно снять, и пройдите по целевому объекту, где вы перемещаете пары ключ-значение в рекурсивные вызовы. Если эта цель отсутствует, вы знаете, что текущий вызов предназначен для верхнего уровня. Функция соответствия должна возвращать новый ключ для нового словаря.

Чтобы создать новый словарь, просто создайте новый словарь и поместите результаты рекурсии в этот объект.

Я предпочитаю использовать @singledispatch() для обработки разных типов при рекурсии:

from functools import singledispatch

@singledispatch
def lift_values(obj, match, targetname=None, **kwargs):
    """Lift key-value pairs from a nested structure to the top

    For key-value pairs anywhere in the nested structure, if
    match(path, value) returns a value other than 'None', the 
    key-value pair is moved to the top-level dictionary when targetname
    is None, or to a new dictionary stored under targetname is not None,
    using the return value of the match function as the key. path
    is the tuple of all keys and indices leading to the value.

    For example, for an input 

        {'foo': True, 'bar': [{'spam': False, 'ham': 42}]}

    and the match function lambda p, v: p if isinstance(v, bool) else None
    and targetname "flags", this function returns

        {'flags': {('foo',): True, ('bar', 0, 'spam'): False}, 'bar': [{'ham': 42}]}

    """
    # leaf nodes, no match testing needed, no moving of values
    return obj

@lift_values.register(list)
def _handle_list(obj, match, _path=(), **kwargs):
    # list values, no lifting, just passing on the recursive call
    return [lift_values(v, match, _path=_path + (i,), **kwargs)
            for i, v in enumerate(obj)]

@lift_values.register(dict)
def _handle_list(obj, match, targetname=None, _path=(), _target=None):
    result = {}
    if _target is None:
        # this is the top-level object, key-value pairs are lifted to
        # a new dictionary stored at this level:
        if targetname is not None:
            _target = result[targetname] = {}
        else:
            # no target name? Lift key-value pairs into the top-level
            # object rather than a separate sub-object.
            _target = result

    for key, value in obj.items():
        new_path = _path + (key,)
        new_key = match(new_path, value)
        if new_key is not None:
            _target[new_key] = value
        else:
            result[key] = lift_values(
                value, match, _path=new_path, _target=_target)

    return result

Я включил функцию отправки для списков; ваш образец не использует списки, но они распространены в структурах данных JSON, поэтому я ожидаю, что вы, вероятно, захотите его в любом случае.

Функция соответствия должна принимать два аргумента, путь к объекту, в котором была найдена пара ключ-значение, и значение. Он должен вернуть новый ключ для использования или None если не поднять значение.

Для вашего случая функция соответствия:

def lift_integers(path, value):
    if isinstance(value, int):
        return '__'.join(path[-2:])

result = lift_values(a_dictionary, lift_integers, 'numbers')

Демонстрация в вашем примере ввода словаря:

>>> from pprint import pprint
>>> def lift_integers(path, value):
...     if isinstance(value, int):
...         return '__'.join(path[-2:])
...
>>> lift_values(a_dictionary, lift_integers, 'numbers')
{'numbers': {'one': 1, 'two': 2, 'internal_dictionary__three': 3, 'internal_dictionary__two': 2, 'another_internal_dictionary__four': 4, 'another_internal_dictionary__five': 5}, 'text': 'Hello', 'more_text': 'Hi', 'internal_dictionary': {'even_more_text': 'Hey', 'another_internal_dictionary': {'last_text': 'howdy'}}}
>>> pprint(_)
{'internal_dictionary': {'another_internal_dictionary': {'last_text': 'howdy'},
                         'even_more_text': 'Hey'},
 'more_text': 'Hi',
 'numbers': {'another_internal_dictionary__five': 5,
             'another_internal_dictionary__four': 4,
             'internal_dictionary__three': 3,
             'internal_dictionary__two': 2,
             'one': 1,
             'two': 2},
 'text': 'Hello'}

Лично я бы использовал полный путь как ключ в поднятом словаре, чтобы избежать конфликтов имен; либо путем присоединения полного path к новому строковому ключу с каким-то уникальным разделителем, либо просто путем создания path каталога самого нового ключа:

>>> lift_values(a_dictionary, lambda p, v: p if isinstance(v, int) else None, 'numbers')
{'numbers': {('one',): 1, ('two',): 2, ('internal_dictionary', 'three'): 3, ('internal_dictionary', 'two'): 2, ('internal_dictionary', 'another_internal_dictionary', 'four'): 4, ('internal_dictionary', 'another_internal_dictionary', 'five'): 5}, 'text': 'Hello', 'more_text': 'Hi', 'internal_dictionary': {'even_more_text': 'Hey', 'another_internal_dictionary': {'last_text': 'howdy'}}}
>>> pprint(_)
{'internal_dictionary': {'another_internal_dictionary': {'last_text': 'howdy'},
                         'even_more_text': 'Hey'},
 'more_text': 'Hi',
 'numbers': {('internal_dictionary', 'another_internal_dictionary', 'five'): 5,
             ('internal_dictionary', 'another_internal_dictionary', 'four'): 4,
             ('internal_dictionary', 'three'): 3,
             ('internal_dictionary', 'two'): 2,
             ('one',): 1,
             ('two',): 2},
 'text': 'Hello'}